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ABSTRACT 

The  Hellenic  Air  Force  storage/utilization  database 
management  system  (DBMS),  utilizes  mainframe  computers.   It 
is  a  system  for  large  applications,  such  as  big  business, 
and  it  is  used  only  at  the  Air  Force  Headquarters  level. 
However,  the  need  for  an  extension  of  this  system,  to  lower 
levels,  has  been  recognized  for  a  long  time. 

This  problem  can  be  resolved  through  the  implementation 
of  the  DBMS  programs  developed  for  this  thesis,  and  the 
utilization  of  DBASE  II  software  applied  to  microcomputers, 
vice  the  larger,  more  expensive,  mainframe  computers. 
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I.   INTRODUCTION 

An  amazing  amount  of  progress  has  been  made  in  the  com- 
puter field  since  the  primitive  computer  age  of  the  1950s. 
Personal  computers,  realistic  graphics,  high-level  languages, 
artificial  intelligence,  music  composition,  and  many  other 
technological  advancements  have  been  made  in  a  period  of  only 
35  years,  and  new  applications  are  being  discovered  every  day. 
However,  a  tremendous  management  problem  has  been  generated 
because  of  the  unpredictability  of  software  development  time. 
Several  solutions  to  this  problem  have  been  introduced  to  help 
the  software  keep  up  with  the  more  sophisticated  hardware. 

In  the  opinion  of  the  writer,  one  of  the  most  effective  ap 
proaches  is  to  let  the  "same  computer"  solve  the  software  prob- 
lem, thus  causing  increased  complexity  in  the  computer.   Now 
the  slogan  in  the  field  of  computer  science  is:  "Fight  the 
complexity  with  the  complexity"  [Ref.  1].   That  means  that  we 
should  try  to  load  as  much  as  possible  into  the  computer  hard- 
ware in  order  to  decrease  our  working  time,  since  the  speed 
and  consequently,  the  efficiency  of  the  hardware  on  the  modern 
computer  has  been  increased  to  the  imaginary  level. 

This  concept  of  recursive  construction  tries  to  balance 
the  software  development  time  and  cost,  by  improving  and  auto- 
mating the  computer  process.   Starting  from  a  system  that 
controls  another  less  complex  unit,  we  create  a  bigger  system 


to  control  the  previous  one  and  another  that  controls  a  bigger 
system  to  control  the  previous  and  another  that  controls  the 
bigger  one  and  so  on.   Thus  the  idea  is  that  we  can  begin 
with  a  minimum  of  structure,  then  provide  masses  of  data  and 
wait  for  the  program  to  solve  its  own  complexities  [Ref.  1]. 
Therefore,  an  individual  works  only  on  the  understandable 
main  menus,  by  using  simple  instructions  without  being  engaged 
in  the  intermediate  processes.   This  progressive  aspect  of  the 
computer  has  been  enforced  in  the  various  fields  of  computer 
science,  and  this  principle  has  recently  found  greate  applica- 
tion in  the  design  of  databases. 

The  idea  of  recording  and  maintaining  information  in  an 
organized  manner  appeared  many  years  ago,  when  the  value  of 
organized  information  was  realized.  The  importance  of  this 
idea  is  stressed  in  the  Spinoza  expression:  "The  order  and 
connection  of  ideas  is  the  same  as  the  order  and  connection 
of  things"  [Ref.  2].  However,  the  appearance  of  computers 
started  enforcing  this  idea  with  the  implementation  of 
applications  on  the  computer. 

The  use  of  automation  and  parallelism  theories  has  also 
helped  the  designers  to  make  retrieval  of  very  large  databases 
very  easy,  and  in  extremely  timely  manner.   These  capabilities 
of  the  database  have  recently  been  appearing  on  a  variety  of 
modern  database  machines  some  of  which  are  briefly  described 
below: 


1.  VERSO  (a  relational  backend  machine):  it  is  being  de- 
veloped at  laboratories  and  its  main  feature  is  a  hard- 
ware filter  that  can  process  data  at  the  speed  of  2 
million  characters  per  second. 

2.  SABRE  (a  relational  database  system  for  a  multimicro- 
processor  machine) :  it  represents  several  original 
ideas  in  database  design  such  as  the  clustering  of 
data,  multiple  views  of  a  database,  joint  algorithms 
for  relations,  query  evaluation,  and  integrity  control. 

3.  Full-Text  Information-Retrieval  System:  can  access  a 
database  of  tens  of  billions  of  characters  in  a  timely 
manner.   This  satisfactory  response  time  for  interactive 
query  formulation  and  refinement  is  provided  to  the 
system  by  the  finite  state  automaton  architecture 
mechanism  [Ref.  3]. 

This  automation  mechanism  finds  all  the  combinations  of  the 
possible  movements  from  one  stage  to  another,  keeps  track 
of  the  various  paths,  and  selects  the  optimum  one.   The  mag- 
nitude of  these  machines  can  be  captured  by  the  human  mind  if 
we  imagine  that  it  can  read  an  entire  newspaper  in  only  milli- 
seconds.  This  tremendous  progress  in  database  design  has  re- 
sulted in  lower  cost,  and  has  provided  a  strong  motivation  for 
working  in  the  database  development  field,  especially  on  very 
large  databases. 

An  additionally  strong  motivation  for  working  in  the  data- 
base field  is  the  wide  variety  of  database  applications.   These 
applications  include  manufacturing  with  inventory  management, 
the. servicing  of  industries  with  lists  of  service  capabilities; 
economic  models  with  production  data  for  allocation  and  plan- 
ning, and  medical  services  with  patient  records,  disease  histories 
problem  classification,  and  treatment  effectiveness  data  [Ref. 
2].   Thus,  databases  are  appearing  and  supporting  almost  every 


science.   It  might  be  said  that  it  is  the  database  era  in 
computer  application. 

An  important  consideration  in  the  design  of  the  data- 
base is  the  way  of  storing  data,  which  is  used  for  a  broad 
variety  of  applications  and  can  be  used  to  make  changes  to 
the  data  quickly  and  easily.   The  ability  of  the  database 
to  be  applicable  in  so  broad  an  aspect  of  applications  is 
based  on  a  common  feature  that  makes  database  development 
valuable  and  general  in  a  programming  methodology.   This 
feature  is  a  creative  form  which  is  called  "structural  growth". 
This  "structural  growth"  should  start  with  a  solution  on  a 
simplified  version  of  the  problem  and  then  repeatedly  expand 
its  capabilities  up  to  the  desired  level.   This  feature  would 
provide  a  multiple  of  "hooks"  for  the  user,  ways  that  the  user 
may  insert  his/her  own  code  to  effect  behavior  of  the  system 
[Ref .  4]  . 

One  useful  tool  that  supports  this  structural  development 
is  a  working  model,  a  prototype,  which  has  recently  become 
possible  only  with  the  development  of  more  powerful  procedural 
based  languages.   Two  other  basic  tools  are  the  data  dictionarie 
and  strong  modularity.   In  Chapter  IV  we  will  examine  the 
capabilities  of  these  tools  and  we  will  see  how  all  of  these 
tools  provide  a  strong  basis  for  the  relational  database 
management  system  (DBMS)  development. 

Among  these  potential  applications,  the  military  require- 
ments for  economic,  medical,  battle  planning,  personnel 
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classification  and  organization,  storage  organization,  and 
work  scheduling  information  are  of  primary  importance  to  any 
defense  organization. 

Utilizing  the  advantages  of  the  wide  applicability  of 
dBASE  II,  the  objective  of  this  thesis  is  to  provide  a 
generally  useful  package  for  military  application,  and 
specifically,  to  meet  the  requirements  of  the  Hellenic  Air 
Force  Storage  Organization  at  the  lower  levels  of  utiliza- 
tion, and  to  enable  the  Hellenic  Air  Force  Material  Staff  to 
more  easily  handle  the  queries  of  "part  demand"  by  using 
microcomputers . 
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II.   OVERVIEW  OF  THE  MANAGEMENT  SYSTEMS 

A.  WHAT  IS  A  DATABASE  MANAGEMENT  SYSTEM  (DBMS)? 

A  database  management  system  is  a  software  tool  that  is 
used  to  manage  and  maintain  an  organization's  database  re- 
sources.  The  database  management  system  does  no  depend  on 
any  application  program  or  specific  file,  but  can  be  used 
to  provide  data  to  several  application  programs  [Ref.  5;  p. 
335].   A  major  role  of  the  DBMS  is  to  enable  the  user  to  deal 
with  the  data  in  abstract  terms  rather  than  as  the  computer 
stores  the  data.   The  DBMS  allows  the  user  to  specify  what 
must  be  done,  with  little  or  no  involvement  in  detailed  al- 
gorithms, or  data  representation  used  by  the  system  [Ref.  6; 
p.  1],   DBMS  provide  a  means  of  easing  some  of  the  problems 
of  managing  data  in  large-scale  management  information  systems 
Although  the  database  management  system  provides  facilties 
and  great  assistance  to  the  user  by  reducing  much  of  his/her 
potential  errors,  it  is  one  of  the  most  complex  variations  of 
software  in  existence. 

B.  INTERACTION  OF  THE  PROGRAMMER/USER  WITH  THE  SYSTEM 

The  description  of  the  database  is  written  in  a  special- 
ized language  or  Data  Definition  Language  (DDL),  and  is  com- 
piled into  tables  that  exist  in  the  system.   Programs  that  are 
permanently  stored  in  the  DBMS  which  are  used  to  manipulate 
the  data  are  called  application  programs.   A  collection  of 
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routines  that  is  used  to  process  queries  is  called  a  database 
manager.   A  database  manager  translates  the  query  into  terms 
that  the  file  manager  understands.   The  database  manager  pre- 
vents the  duplication  of  data  by  storing  everything  in  a 
single  database,  it  reduces  the  program  development  time  by 
using  many  routines,  and  it  improves  the  reliability  of  the 
system  by  automatic  integration  of  information  and  the  rela- 
tionship of  information  [Ref.  7:  p.  14]. 

The  file  manager  may  be  provided  by  the  underlying  opera- 
ting system,  or  may  be  a  specialized  file  system  that  contains 
all  the  information  about  the  storage  of  the  data.   The  data- 
base manager  with  the  assistance  of  the  file  manager,  can  pro- 
vide rapid  access  to,  and  manipulation  of  the  database.   The 
database  manager  usually  performs  other  tasks,  such  as  the 
following: 

1.  Security .  Gives  the  ability  to  the  user  to  protect  the 
access  of  its  data  from  unauthorized  persons. 

2.  Integrity .  Enables  the  DBMS  to  check  the  data  whenever 
a  user  uses  a  command  to  insert,  delete,  or  change  some 
data . 

3.  Synchronization .   Provides  protection  to  the  DBMS  against 
inconsistencies  that  are  caused  when  two  or  more  approx- 
imately simultaneous  operations  occur  on  a  data  item 
[Ref.  6:  p.  4] . 

In  figure  2.1  we  can  see  the  components  that  comprise  the 

whole  system. 

C.   LEVELS  OF  ABSTRACTION  IN  A  DBMS 

A  fairly  standard  viewpoint  regarding  levels  of  abstrac- 
tion is  the  three  levels  of  presentation  (views,  conceptual 
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database,  and  physical  database),  which  are  shown  in  figure 
2.2. 

1.   The  views  are  an  abstract  model  of  a  part  of  the 
conceptual  database.   A  facility  for  declaring  views,  called 
a  subscheme  data  definition  language,  and  a  facility  for 
expressing  queries  and  operations  on  the  views,  are  called  a 
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Figure  2.2.   Levels  of  Abstraction  in  a  Database  Syste 
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subscheme  data  definition  language,  and  a  facility  for  ex- 
pressing queries  and  operations  on  the  views,  are  called  a 
subscheme  data  manipulation  language.   An  example  of  the 
use  of  the  different  views  could  be  set,  an  airline  with  a 
computerized  reservation  service  system,  that  is  concerned 
only  about  the  flights  and  passengers.   However,  another  sys- 
tem (view)  would  be  concerned  about  personnel  files  or  assign 
ment  of  mechanics  to  work  on  specific  airplanes  [Ref.  6:  p.  6] 
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2.  The  conceptual  database  is  just  an  illustration  of  the 
real  world.   A  DBMS  provides  a  data  definition  language  (DDL) 
to  specify  the  conceptual  database.   DDL  is  a  high-level 
language  that  is  used  to  describe  the  conceptual  database  in 
regards  to  a  data  model. 

3.  The  physical  database  is  stored  permanently  on 
secondary  storage  devices,  such  as  disks  and  tapes. 

D.   BENEFITS  OF  THE  DATABASE  MANAGEMENT  SYSTEMS 

A  database  management  system  can  be  a  complex  and  expensive 
tool  for  an  organization.   The  installation  of  a  database  man- 
agement system  increases  substantially  the  entire  data  process- 
ing cost  of  an  organization,  since  the  initial  cost  may  range 
from  $10,000  to  over  $200,000.   For  that  reason  an  organization 
must  compare  the  overall  costs  of  a  DBMS  with  the  benefits  to 
be  gained  from  its  use.   The  advantages  of  DBMS  come  from: 

1.  Improved  control.   The  DBMS  improves  the  control  of  data 
in  numerous  ways.   Data  can  be  organized  and  structured 
so  that  it  is  suitable  for  many  application  systems.   In 
addition,  control  over  input  and  use  of  the  data  is  im- 
proved.  Control  is  also  improved  for  privacy  and  security 
of  data  by  using  the  built-in  procedures  of  the  DBMS. 

2.  Evolvability .   The  ability  of  DBMS  to  be  adjusted  to 
meet  changes  caused  by  either  usage  requirements  or 
technological  improvements. 

3.  Service.   Service  may  be  improved  at  a  lower  total  cost 
to  an  organization  because  of  the  more  efficient  use 

of  storage  space  and  substantial  reductions  in  program 
maintenance  costs.   The  reduction  of  the  program  main- 
tenance cost  is  importance  since  typically  more  than 
half  of  the  expenses  is  absorbed  by  the  software  systems. 

4.  User  Benefits.   In  addition  to  the  previously  discussed 
benefits,  we  can  add  some  others  that  go  directly  to 
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the  user.   Users,  by  using  the  different  skills  froi 
the  different  levels  of  languages,  can  interrogate 
the  database  to  "fine-tune"  requests.   Thus,  they 
receive  more  appropriate  information,  with  less  of 
the  irrelevant  information  often  associated  with  some 
types  of  generated  reports.   Similarly,  through  direct 
interrogation,  users  can  find  answers  to  those  un- 
anticipated inquireis  that  play  an  important  role  in 
rapidly  changing  organizational  environments  [Ref.  5: 
p.  352]. 
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III.   BASIC  MODELS  OF  THE  DBMS 

There  are  three  basic  models  of  the  database  management 
system.   There  are  the  network,  the  hierarchical  and  the 
relational  models  (figure  3.1). 


DATABASE 
MANAGEMENT 

\ 
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i 

NETWORK 
MODEL 

HIERARCHICAL 
MODEL 

RELATIONAL 
MODEL 

Figure  3.1.   The  Three  Database  Models 

A.   Hierarchical 

A  hierarchical  model  is  a  special  case  of  the  network 
model.   A  hierarchy  structure  can  use  ordering  conventions 
for  the  segments.   The  characteristic  of  this  model  is  that 
each  descendand  (child),  has  to  have,  at  most,  one  link  with 
the  other  file.   In  addition,  this  link  must  proceed  only 
from  ascendand  to  descendant.   Thus  the  basic  operation  on  a 
hierarchical  database  is  a  tree  walk;  that  is,  given  a  node 
(which  represents  a  record  of  the  database)  of  the  database 
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tree,  we  search  all  its  descendants  of  this  node.   The  figure 
3.2  shows  the  hierarchical  model  of  the  same  organization 
depicted  in  the  network  model. 


DEPARTMENT 


NAME 

MANAGER 

\/ 

EMPLOYEE 

\ 

/ 

ITEM 

EMPL  # 

NA 

ME 

ADDR 

ITEM  tf           NAME 

PRICE 

MANUFACTURER 

NAME     ADDR 

M  PRICE 

Figure  3.2.   A  Hierarchical  Model 

B.  NETWORK 

A  network  is  used  when  applied  structures  are  more  com- 
plex than  hierarchies,  a  special  case  of  the  network  model. 
The  characteristic  of  the  network  is  that  its  links  are  bi- 
directional, allowing  us  to  travel  either  from  many  to  one  or 
from  one  to  many  files.  The  figure  3.3  shows  the  schematic 
representation  of  one  organization  by  using  the  network 
system. 

C.  RELATIONAL 

The  relational  model  is  quite  different  in  its  organiza- 
tional structure.   Information  is  stored  in  two-dimensional 
files,  and  the  manipulation  of  its  queries  uses  the  relational 
calculus.   It  uses  indexed  tables  for  fast  search  and 
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Figure  3.3.   A  Network  Model 
retrieval.   The  uniquely  identified  attribute  of  an  indexed 
file  is  called  a  key,  and  is  represented  by  underlining  the 
attribute  showed  in  figure  3.4. 
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Figure  3.4.   A  Relational  Model 
D.   COMPARISON  OF  THE  MODELS 

The  relational  model  is  easier  to  use  than  the  other  two 
models,  because  it  provides  only  one  concept,  the  relation- 
ship, that  the  programmer  must  know  very  well.   Further,  the 
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network  model  requires  our  understanding  of  both  record 
types  and  links,  and  their  relationships.   The  implementa- 
tion of  "many  to  many"  (linking  from  many  records  of  one 
file  to  many  records  of  another  file)  for  more  than  two 
files  provides  serious  complexity.   Similarly,  the  hierarchi- 
cal model  has  the  same  problems  as  the  network  has,  because 
it  requires  understanding  the  use  of  the  pointers. 

From  the  aspect  of  efficient  implementation,  the  network 
and  hierarchical  models  clearly  win.   This  happens  because 
of  the  difficulty  of  the  relational  model  to  implement  "many 
to  many"  relationships.   Here  we  should  add  an  intersection 
file  (with  the  fields  including  at  least  the  keys  of  the  two 
files)  ,  that  causes  problems  and  creates  complexity  on  the 
system. 

The  last  criterion  of  the  model's  evaluation  is  the 
language  that  supports  each  of  them.   From  this  aspect  we 
note  that  the  relational  DBMS  requires  support  by  high-level 
languages,  while  DBMS  based  on  other  models  have  a  tendency 
to  use  languages  of  a  lower-level.   The  high-level  language 
provides  a  single  "data  type"  for  the  relationship.   In  con- 
trast, lower-level  languages  enable  the  programmer  to  use  a 
variety  of  data  types.   This  variation  of  the  data  types 
used  in  the  network  and  hierarchical  models  provide  efficient 
implementation,  but  require  skilled  users. 
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IV.   TOOLS  THAT  SUPPORT  A  DATABASE 

The  increasing  productivity  of  systems  development,  the 
shortening  of  the  response  time  of  the  computer,  and  the 
increasing  complexity  of  computer  systems,  require  effective 
tools  that  will  be  capable  of  processing  information.   This 
chapter  covers  advanced  tools  currently  available  to  meet 
these  challenges.   In  the  opinion  of  the  writer,  such  tools 
as  prototyping,  data  dictionaries,  and  modularity,  are  the 
appropriate  choices. 
A.   PROTOTYPE 

1 .   What  is  Prototyping? 

Prototyping  has  proven  to  be  a  valuable  technique 
throughout  the  engineering  sciences.   Its  name  comes  from 
the  Greek  words  "protos=f irst"  and  "type=model"  [Ref.  2: 
p.  26].   It  is  not  a  new  concept.   Software  systems  are  being 
constructed  today  in  much  the  same  way  that  they  have  been 
for  the  past  two  decades.   In  some  instances,  scientists  and 
engineers  with  sophisticated  support  environments  have  used 
prototyping  as  an  alternative  approach.   They  realized  that 
"pilot  systems",  are  necessary  and  useful  tools  which  reduce 
the  inherent  technical  risks  created  with  developing  new 
software.   Prototyping  is  a  hand-crafted  version  of  a  final 
production  model  [Ref.  8:  p.  14].   "Prototyping"  is  also 
defined  as:  "a  perfect  example  of  a  particular  type"  and  as 


22 


"an  original  or  model  after  which  any  thing  is  formed"  [Ref. 
9:  p.  13].   It  is  a  technique  which  offers  the  probability 
of  delivering  a  clear,  correct,  and  validated  requirement 
statement  of  the  user's  need. 
2 .   Prototype  Life  Cycle 

The  development  steps  that  a  system  should  follow, 
when  using  a  traditional  management  information  system  ap- 
proach, are  shown  in  figure  4.1,  and  the  development  steps 
of  a  system  using  the  prototyping  techniques  are  shown  in 
figure  4.2. 


Feasibility 

Requirements 

Preliminary  Design 

Detailed  Design 

Integration 

Implementation 

Operations  and  Maintenance 


Figure  4.1.   Traditional  Life  Cycle  Technique 
The  figure  show  that  the  only  difference  from  the 
traditional  technique  is  in  the  requirement  steps,  which  ap- 
pears in  the  prototype  technique  [Ref.  10:  p.  163].   On  the 
substeps  of  the  prototyping  development,  we  can  see  that  the 
key-mechanism  of  the  structure  is  the  iteration  process.   The 
iteration  process  gives  us  a  high-degree  of  confidence  in  the 
design  quality  and  completeness  of  the  design  [Ref.  11:  p.  25] 
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-  1.  Identify  basic  needs 

-  2.  Develop  working  model 

-  3.  Demo  in  context 

-  4.  Implement  revisions 

-  5.  Is  prototyping  done? 
If  Yes,  go  on  to 

detailed  design 
Else,  go  back  to 

Preliminary  Design 


Figure  4.2.   Prototype  Life  Cycle  Technique 
3 .   Advantages  of  a  Prototype 

The  main  benefit  of  prototyping  is  its  ability  to 
bridge  the  communication  barriers  in  the  development  process. 
This  feature  enables  the  prototyping  to  create  a  dialogue 
between  human  and  machine,  allowing  the  user  to  make  minor 
changes  quickly.   In  addition  to  this  benefit,  the  prototyping 
approach  has  numerous  other  advantages  during  the  development 
of  a  system,  such  as: 

-  Prototyping  technique  is  usually  faster  than  traditional 
methods . 

-  It  permits  assessment  of  the  impact  of  the  system  on  the 
entire  user  environment. 

-  It  permits  early  testing  of  the  human/machine  interface. 

-  It  provides  a  medium  for  validating  requirements. 

-  It  requires  fewer  programmers. 

-  It  reduces  the  life  cycle  costs  by  reducing  the  maintenance 
cost  . 

-  It  is  developed  with  correctness  in  mind  [Ref.  2:  p.  26]. 
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4 .   Prototyping  Limitations 

In  spite  of  the  numerous  advantages  of  prototyping, 
it  does  have  limitations.   The  major  limitations  are: 

-  Prototypes  are  not  developed  with  efficiency  in  mind 
[Ref.  2:  p.  26].   (This  is  caused  by  the  decrease  in 
software  development  time  and  the  use  of  fewer 
programmers) . 

-  Prototyping  does  not  necessarily  result  in  shorter  devel- 
opment time. 

-  It  is  possible  for  a  programmer  to  leave  out  some  major 
part  of  a  system  during  the  development  phase. 

-  Because  of  extensive  use  of  the  iteration  process,  time 
estimating  procedures  are  difficult. 

-  Prototyping  is  not  appropriate  for  all  types  of 
applications . 

Although  these  limitations  seem  to  degrade  the  value 
of  prototyping,  it  is  clear  that  most  of  these  problems  can 
be  solved  as  more  experience  is  gained. 
5  .   Prototyping  Applicability 

The  greatest  potential  advantages  of  prototyping 
appear  on  large  systems  development.   Algorithm  based  prob- 
lems do  not  create  an  appropriate  environment  for  fast  itera- 
tion.  On  the  other  hand,  on-line  transaction  processing 
based  applications  work  perfectly  by  using  the  prototyping 
technique.   Prototyping  can  also  be  used  as  a  basis  for 
bottom-up  integration.   It  can  do  an  evaluation  of  update 
and  retrieval  efficiency,  and  can  be  used  to  simplify  the 
implementation  and  acceptance  of  a  new  system. 

Prototyping  can  also  be  used  to  improve  the  physical 
database  design.   In  order  to  understand  this  improvement, 

25 


we  can  think  of  the  relational  database  as  a  "pilot  model" 
which  is  the  structure  of  the  database  file,  and  then  the 
iteration  feature  of  the  prototyping  will  be  applied 
sequentially  on  all  records  of  the  same  file. 

However,  in  addition  to  the  assistance  that  is  pro- 
vided by  prototyping  in  the  database  software  development 
design,  the  data  dictionary  tool  should  also  be  available 
for  use. 

B.   DATA  DICTIONARIES 

A  data  dictionary  is  used  for  the  definition  and  the 
recording  of  the  data  elements,  and  the  handling  of  the 
logic  representations  such  as  decision  tables,  and  structural 
English.   It  is  a  document  that  provides  details  of  each 
data  file  that  is  described  [Ref.  12:  p.  186]. 

A  typical  data  dictionary  entry  is  presented  in  figure 
4.3  [Ref.  13:  p.  126].   It  should  include  the  name  of  the 
data  item,  where  it  is  used,  its  purpose,  where  it  is  de- 
rived from,  its  subordinate  systems,  and  any  other  appro- 
priate notes. 

We  can  see  that  the  relations  are  composed  from  fields 
of  the  data  records.   These  fields  are  called  domains  of  the 
relation.   For  example,  the  record  "ORDER"  has  seven  fields 
as  in  figure  4.3.   ORDER  ("customer- identity ,  order-date, 
catalog-number,  item-name,  unit-price,  quantity,  total-cost). 
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DATA  FLOW:  ORDER 

DATA  STORE:  ORDER- DATE 

COMPOSITION: 

COMPOSITION 

CUSTOMER- IDENTITY 

TIME 

ORDER-DATE 

DAY 

ITEM-ORDERED 

MONTH 

CATALOG -NUMBER 

YEAR 

ITEM-NAME 

UNIT  PRICE 

QUANTITY 

TOTAL- COST 

Figure  4.3.   Example  of  Data  Dictionary 
The  value  of  dictionaries  to  the  maintenance  staff  of  a 
system  are  obvious.   Much  of  the  information  conventionally 
gathered  by  cross  reference  programs  can  be  entered  into  the 
dictionary,  and  when  a  program  object  is  to  be  changed, 
reference  to  the  dictionary  should  be  made  to  ensure  the 
changes  are  accepted  by  the  system  [Ref.  12:  p.  187]. 

Since  the  data  dictionary  can  define  attributes  of  the 
data,  and  relationship  among  them,  it  can  be  utilized  as  a 
source  of  information  that  is  needed  by  prototyping. 

A  data  dictionary  may  also  contain  the  output  of  proto- 
typing in  an  organized  database,  and  generally  should  be  the 
main  factor  to  integrate  all  the  conceptual  output  that  is 
produced  by  the  tools  that  are  being  used  [Ref.  14:  p.  250]. 

C.   MODULARITY 

Modulus  always  refers  to  parts  that  can  be  put  together 
to  make  a  complete  system.   We  can  think  of  the  modulus  as  a 
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work  assignment  given  to  a  programmer  or  group  of  program- 
mers in  order  to  construct  a  complete  system  by  putting 
their  assignments  together.   The  use  of  modulus  and  sub- 
systems provide  a  powerful  abstraction  mechanism,  since  the 
parts  of  the  whole  system  can  be  compiled  separately,  they 
can  use  their  libraries,  and  they  can  link  the  library  units 
into  the  object  code.   Systems  with  strong  modularity  consist 
of  sell-defined  manageable  units,  and  with  well-defined  inter- 
faces among  the  units.   For  well  designed  systems,  the  modular 
ization  criteria  should  have  the  following  characteristics: 

1.  Modules  which  contain  instructions,  processing  logic, 
and  data  structures 

2.  Modules  which  can  be  separately  compiled  ans  stored 

3.  Modules  which  can  be  included  in  a  program 

4.  Modules  which  can  utilize  other  modules  [Ref.  13:  p. 
147]. 

All  of  these  characteristics  make  the  modularity  power- 
ful and  very  useful  throughout  the  computer  sciences,  and 
provides  effective  solutions,  especially  in  the  large  and 
complex  programs. 

In  the  relational  database,  modularity  can  be  used  to 
integrate  the  developed  structure  of  the  system  in  order  to 
be  more  understandable  and  easier  to  handle  by  the  user. 

Examples  of  modules  include  procedures,  subroutines,  and 
functions.   Modularization  permits  the  designer  to  separate 
a  system  into  functional  units,  to  establish  the  hierarchical 
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feature  of  the  ordering,  to  implement  data  abstractions,  and 
to  develop  software  by  using  subsystems  [Ref.  13:  p.  147]. 


29 


V.   OVERVIEW  OF  MICROCOMPUTERS 

A.  INTRODUCTION 
In  general,  by  the  term  "microcomputer"  we  mean  a  stored 

computer  program  comprising  memory  and  input/output  circuits 
together  with  a  microprocessor  (CPU),  residing  on  one  or  more 
chips.   Microcomputers  are  a  recent  technology  and  are  ac- 
cepted by  many  people  because  they  provide  several  advantages 
as  compared  to  the  larger  computers.   First  of  all,  micro- 
computers are  not  as  expensive  as  the  mainframe,  and  can  be 
very  helpful  for  many  people  for  personal  use.   Second,  micro- 
computers are  powerful,  reliable,  and  can  be  used  for  a  wider 
range  of  specific  applications.   Third,  they  are  acceptable 
to  any  environment  and  can  replace  the  older  computers,  which 
require  additional  funding  for  maintenance  personnel  and 
special  facilities  (air  conditioned  rooms  and  large  spaces). 
However,  the  limited  access  speed  and  the  limited  storage 
capabilities  are  the  major  disadvantages  of  microcomputers 
[Ref .  15:  p.  11] . 

B.  PROBLEMS  AND  CHARACTERISTICS  OF  THE  MICROCOMPUTER- BASED  DBMS 
The  use  of  a  database  management  system  (DBMS)  in  the 

microcomputer  environment  is  a  relatively  new  orientation. 
Recently  many  DBMS  packages  have  been  tailored  for  the  micro- 
computer.  They  have  become  very  attractive  to  the  user 
because  of  the  high  cost  of  the  larger  computers  and  the 
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requirement  of  less  memory  storage  for  the  smaller  systems. 
In  spite  of  the  fact  that  the  new  packages  were  developed 
independently  of  the  mainframe  DBMS,  they  still  have  similar 
characteristics  and  problems,  such  as: 

1.  Concurrency  control.   The  special  problems  which  take 
place  when  a  database  is  accessed  by  many  users.   For 
example,  when  two  users  simultanteously  lock  and  access 
two  records,  and  then  they  both  attempt  to  lock  the 
second  one  which  is  locked.   This  problem  (deadlock) 
disappears  when  the  record  is  unlocked.   DBASE  II  does 
not  use  any  mechanism  to  enforce  concurrency. 

2.  Transportability.   This  issue  is  focussed  on  two  levels. 
Portability  of  application  programs  and  DBMS  in  high- 
level  language  and  portability  of  DBMS  machine.   DBASE 
II  is  offered  on  CP/M  and  compatible  systems.   Since 

it  is  interpreted  at  run  time,  only  the  interpreter  is 
modified  to  run  on  other  systems.   The  language  of  DBASE 
II  remains  the  same. 

3.  Integrity  and  consistancy.   The  ability  of  the  DBMS  to 
determine  if  the  entered  data  is  appropriate  and  valid 
for  further  processing.   DBASE  II  has  rather  limited 
consistancy  checks  and  it  does  not  provide  a  range 
limit  on  all  insertions. 

4.  Security.   This  important  feature  should  concentrate  on 
several  things.   The  prevention  of  unauthorized  access 
and  modification  to  data  in  secondary  storage;  the  pre- 
vention of  unauthorized  access  and  modification  to  data 
when  the  DBMS  is  in  use;  and  a  provision  of  selective 
security  to  control  access  to  the  individual  fields  of 
a  record.   DBASE  II  does  not  provide  any  explicit 
security.   We  could  use  a  password  protection  by  creat- 
ing a  specific  command  file,  but  this  protrection  could 
be  by-passed  by  reading  directly  to  the  command  files. 

5.  Crash  protection  and  recovery.   The  ability  of  the  sys- 
tem to  recover  in  case  of  a  hardware  failure.   Typical 
problems  which  take  place  are  disk  damage,  temporary 
power  failure,  and  transients  in  the  power  supply  which 
cause  data  in  memory  to  be  mixed,  etc.   DBASE  II  has  no 
special  functions  to  protect  the  system  from  damage 
caused  by  the  hardware.   The  only  protective  operations 
are  the  echoing  of  the  operations  and  transactions  to 
the  printer  or  a  disk.   Consequently  a  backup  copy  is 
the  best  way  of  recovering  from  such  problems. 
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C.   DBASE  II  CONCEPTS 

DBASE  II  is  a  relational  DBMS.   However,  since  the  re- 
lationship of  the  different  files  of  the  same  application 
is  not  stored  in  the  system,  we  can  not  say  strictly  that  it 
is  a  true  DBMS.   The  main  advantage  of  DBASE  II  is  that  it 
provides  simplicity  in  application  programming.   This  means, 
it  can  be  easily  used  by  programmers  with  a  minimum  of  ex- 
perience.  DBASE  II  can  be  applied  to  the  financial,  manu- 
facturing, home,  and  business  fields.   Some  typical  applications 
include: 

*  General  ledger,  accounts  receivable,  accounts  payable, 
payroll,  job  costing,  and  legal  office  accounting. 

*  Inventory  control,  purchase  order  systems,  project  manage- 
ment, time  scheduling,  materials  requirement  planning, 
invoicing  systems,  and  order  entry  systems 

*  Stock  portfolio  management,  games,  simulations,  nutritional 
analysis,  tape  and  record  collection  management,  coupon 
exchange  management,  recipe  file  control,  home  budget 
analysis,  and  tax  computation 

*  Real  estate  management,  mailing  list  management,  ticket 
ordering  system,  time  billing,  and  personalized  mass 
mailings . 

Some  of  the  features  of  DBASE  II  are: 

*  A  large  degree  of  program  and  data  independence.   Data 
structures  can  be  altered  without  the  necessity  of  many 
program  changes 

*  Data  can  easily  be  added,  edited,  deleted,  sorted,  indexed, 
or  reported  using  a  minimum  of  programming. 

*  Reports  can  easily  be  created  from  data  in  a  database 
using  mathematical  operations  like  multiplication  and 
division.   Subtotals  and  totals  can  be  easily  generated. 

*  Professional  screen  formats  can  be  created  for  data  entry. 
You  design  the  entire  screen,  and  data  entry  only  requires 
the  operator  to  "fill  in  the  blanks." 
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*  The  internal  language  is  extemely  powerful  with  single 
commands  for  indexing,  sorting,  and  reporting.   Often 
programs  can  be  developed  at  five  or  ten  times  the  speed 
of  developing  equivalent  BASIC  programs. 

*  The  internal  language  is  a  structured  language,  and  its 
programs  are  far  easier  to  write  and  update  than  un- 
structured programs  [Ref.  7:  p.  12]. 
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VI.   APPLICATION  OF  DATABASE  DEVELOPMENT 

This  chapter  describes  the  steps  taken  to  develop  the 
Hellenic  Air  Force  Storage/Utilization  database  management 
system,  and  provides  the  course  application  programs  to 
support  the  needs  of  the  user.   Example  reports  are  also 
included  to  demonstrate  how  this  database  can  be  used  to 
provide  better  communications  and  user  satisfaction. 

The  phases  that  comprise  this  development  are:  the 
analysis  phase,  design  phase,  and  the  implementation  phase. 

A.   ANALYSIS  PHASE 

1 .   Introduction 

The  analysis  phase  of  software  development  involves 
requirement  specifications  that  state  the  "what"  of  the 
software  without  implying  the  "how."   The  "how"  specifica- 
tion concerns  software  design  and  will  be  examined  in  the 
design  phase  section. 

In  reference  to  this  thesis,  the  demands  of  the 
Hellenic  Air  Force  Storage  System  (HAFSS)  must  be  specified 
and  the  objective  requirements  for  the  system  that  is  being 
developed  must  be  analyzed. 

2  .   System  Objectives 

The  wide  variety  of  models  of  same-purpose  weapons, 
the  different  types  of  airplanes,  the  different  measuring 
systems,  the  different  kinds  of  airplane  parts,  and  the 
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large  number  of  users  that  manipulate  these  parts,  has 
recently  created  a  major  problem  for  the  Hellenic  Air 
Force  Storage/Utilization  System.   Actually  the  solution 
of  this  problem  is  becoming  more  complex  as  the  demands  for 
more  effective  and  more  complex  weapons  systems  emerge. 

As  a  partial  solution  to  this  problem,  computerization 
was  introduced  on  an  Air  Force  level  basis  in  recent  years. 
It  is  the  intention  of  this  thesis  to  suggest  an  expansion 
of  this  system,  down  to  the  Air-base  level,  in  an  attempt 
to  increase  efficiency  in  the  handling  of  airplane  parts. 

As  a  facet  of  this  expansion  to  the  base  level  utiliza- 
tion, microcomputers  are  strongly  suggested  by  this  thesis 
for  reasons  which  were  described  in  Chapter  V.   Their  utiliza- 
tion on  sequentially  lower  levels  of  the  organization  will 
revolutionize  the  current  process  of  stores  accounting,  and 
provide  the  necessary  measures  of  economy  of  manpower,  ensur- 
ing that  sufficient  stocks  are  maintained  in  a  timely  fashion. 
In  this  utilization,  (and  due  to  the  limited  storage  capacity 
of  microcomputers),  care  must  be  taken  to  store  only  that 
data  which  is  pertinent  to  the  tasks  required.   The  kind  of 
output  that  must  be  retrieved  from  the  system  vary,  and  de- 
pend on  several  factors.   To  meet  the  demands  of  the  Hellenic 
Air  Force  Storage/Utilization  System,  the  application  software 
developed  from  this  study,  is  based  on  the  appropriate  inputs 
and  is  directed  by  the  following  necessary  outputs. 
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INPUT 


OUTPUT 


PART  NUMBER 
PART-NUMBER,  DATE 
USER-NAME,  DATE 

PART -NUMBER,  DATE 

SUPPLIER-NAME,  COST 
PART-NUMBER 

PART-NUMBER,  QUANTITY 


INVOICE -NUMBER 
PART -NUMBER 


WHERE  CAN  WE  FIND  A  SPECIFIC 
PART? 

HOW  MANY  PARTS  WERE  ORDERED  IN 
A  SPECIFIC  TIME  PERIOD? 

WHO  ORDERED  THE  PART  AND  WHEN 
WAS  IT  ORDERED? 

WHICH  PARTS  DO  WE  NEED  TO  REORDER? 

WHICH  SUPPLIER  IS  PREFERRED  FOR 
BUYING  A  SPECIFIC  PART? 

WHAT  IS  THE  REQUIRED  QUANTITY 
OF  A  SPECIFIC  PART? 

BY  WHICH  INVOICE  NUMBER  WAS  A 
SPECIFIC  PART  TAKEN? 


WHAT  WAS  THE  COST  FOR  A  SPECIFIC 
PART  IN  A  SPECIFIC  PERIOD? 


PART-NUMBER,  DATE,  COST 

The  question  remains  as  to  "how"  to  implement  these  object 


ives.   The  "how"  is  answered  in  the  design  phase  of  the  applica- 
tion's development. 

B.   DESIGN  PHASE 

According  to  Webster,  the  process  of  design  involves  "con- 
ceiving and  planning  out  in  the  mind"  and  "making  a  drawing, 
pattern,  or  sketch  of"  [Ref.  13:  p.  137].   In  software  design, 
we  have  two  separate  kinds  of  activities.   The  external  design 
is  concerned  with  refining  the  software  requirements  and  estab- 
lishing a  bird's  eye  view  of  the  structure  of  the  system  and 
the  internal  design  is  concerned  with  the  internal  structure 
of  the  system  and  the  processing  details.   Design  is 
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the  connection  between  requirements  and  an  implementation 
that  satisfies  those  requirements,  and  is  the  "how"  of  the 
software  products. 

The  database  system  of  this  thesis  organizes  the  data 
into  files,  and  the  data  stream  is  accomplished  by  the  com- 
mand programs  of  the  system.  The  use  of  menus  and  submenus 
is  an  ideal  way  to  establish  the  top-down  design  were  atten 
tion  is  first  focused  on  global  aspects  of  the  overall  sys- 
tem, and  then  is  decomposed  into  subsystems  where  more  con- 
sideration is  given  to  it. 

Figure  6.1  illustrates  the  organization  of  the  main  menu 
and  submenus  of  the  system  (by  capital  letters),  and  their 
programs  (lower  case  letters). 


SECURITY  PROGRAM 

entry 
t 

MAIN  MENU 

1 

1 

ADDMENU 
I 

DELMENU 

MODIMENU 

REPOMENU 

QUERMENU 

1 

adpart 

depart 

mopart 

repart 

quel 

adarstr 

dearstr 

moarstr 

resuplr 

que2 

adwstr 

dewstr 

mowstr 

reorder 

que3 

adsuplr 

desuplr 

mosupl 

reusage 

que4 

adj  str 

dej  str 

rearstr 

adacstr 

deacstr 

rewstr 

adorder 

deorder 

reacstr 

adusage 

deusage 

Figure  6.1.   Organization  of  the  Database  Programs 
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FIELDS  OF  THE  DATA  FILES  OF  THE  AIRPLANE  PARTS  SYSTEM 
[PARTS 


PNO 


DESC 


ARPLT 


SUPLRNA 


ARSTRNA 


WSTRNA 


JUNA 


ACSTRNA 


QOH 


COST 


SUPPLIERS 


SUPLRNA 


SUPLRADR 


ZIP 
CO 


COUNTRY 


ARPLT 


DELIV 
TIME 


PRODUC 


ORDERS 


ORDNO  DATE  PNO  DESC  ORDNA  SUPLRNA  QNT  COST 


USAGE 


INVNO  DATE  PNO  DESC  UNAME  UADDR  QNT  COST 


ARSTORES 


ARSTRNA  PNO  DESC  lASLFNO  ARPLT  QNT  COST 


WSTORES 


WSTRNA  PNO  DESC  WSLFNO  ARPLT  QNT  COST 


JUNSTORES 


JUNA  PNO  DESC  JSLFNO  QOH  COST 


ACSTORES 


ACSTRNA  PNO  DESC  ACSLFNO  ARPLT  QOH  COST 


Figure  6.2.   Organization  of  the  Files 
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The  figure  6.2  shows  the  structure  of  the  files  of  the 
system  that  are  constructed  according  to  the  specific  demands 
of  this  system.   Also,  a  hierarchical  style  representation 
of  the  files  is  illustrated  in  the  figure  6.3.   Meaning  of 
the  names  in  figure  6.2  follows: 


PNO  =  Part  Number 
SUPLRNA  =  Supplier  Name 

WSTRNA  =  Weapon  Stores 

ACSTRNA  =  Accessories 
Stores 

COST  =  Cost 

ZIP  CO  =  Zip  Code 

DELIV  TIME  =  Delivery  Time 

DATE  =  Date 

INVNO  =  Number  of  the 
Invoice 


DESC  =  Description 

ARSTRNA  =  Stores  of  Airpl 
Parts 

JUNA  =  Junk  Stores 

QOH  =  Quantity  On  Hand 

SUPLRADR  =  Supplier  Address 
COUNTRY  =  Country 
ORDNO  =  Number  of  the  Order 
ORDNA  =  Name  of  the  Orderer 
UNAME  =  Name  of  the  User 


ASLFNO  =  Airpl  Store  Shelf   WSLFNO  =  Weapon  Store  Shelf 
Number  Number 

JSLFNO  =  Junk  Shelf  Number    ACSLFNO  =  Accessories  Shelf 

Number 

The  requirements  of  the  analysis  phase  that  have  been  dis- 
cussed in  the  preceeding  section,  are  satisfied  by  using  the 
above  files,  and  by  using  the  information  stored  in  the  fields 
of  those  files.   All  the  necessary  operations  will  be  performed 
under  the  program's  control.   For  example,  in  order  to  satis- 
fy the  first  question  of  the  analysis  phase,  "where  can  we 
find  a  specific  part"  (with  part  #  222222),  we  have  to  use 
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the  indexed  "parts"  file  with  the  key  "PNO",  and  go  through 
it  until  we  find  the  record  with  the  number  222222.   Further 
more  we  can  obtain  the  information  on  where  this  part  is 
stored,  including  its  location,  the  shelf  number  on  which 
this  part  has  been  stored,  and  the  quantity-on-hand. 


PARTS 

/ 

USAGE 

STORES 

ORDERS 

\ 

ASTORES 

WSTORES 

JSTORES 

ACSTORES 

SUPPLIERS 

Figure  6.3.   File  Organization  in  Hierarchical  View 

C.   IMPLEMENTATION  PHASE 

This  section  describes  the  implementation  of  the  data- 
base system  of  this  thesis,  by  using  the  relational  DBMS, 
DBASE  II.   Generally,  in  the  operational  environment,  the 
DBMS  provides  several  functions  to  carry  out  the  implementa 
tion  of  the  application  programs.   However,  although  the 
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principal  function  of  the  DBMS  is  to  store,  retrieve,  and 
modify  data,  the  DBMS  provides  other  important  functions 
as  listed  below: 

1.  Store,  retrieve,  and  update  data 

2.  Provide  integrity  services  to  enforce  database 
constrains 

3.  Provide  a  user-accessible  catalog  of  data  description 

4.  Control  concurrent  processing 

5.  Support  logical  transactions 

6.  Recover  from  failure 

7.  Provide  security  facilities 

8.  Interface  with  communications  control  programs 

9.  Provide  utility  services  [Ref.  18:  p.  408]. 

Ideally,  for  a  product  to  be  a  relational  DBMS,  it  must 
be  a  full -capability  DBMS,  plus  it  must  process  data  as  re- 
lations.  In  practice,  no  relational  DBMS  product  concurrently 
provides  all  of  the  nine  functions. 

The  basic  characteristics  that  a  DBMS  must  have  to  be 
considered  as  a  relational  model,  are  tables  that  define 
data  and  are  processed  by  SELECT,  PROJECT,  and  unrestricted 
JOIN  operations.   DBASE  II  substitutes  the  principle  rela- 
tional DBMS  commands  with  the  following  ones: 
"FOR"  for  SELECT  "JOIN"  for  JOIN 

"GET"  for  RETRIEVE  "COPY"  for  PROJECTION 

"UPDATE"  for  UPDATE  "FIND"  for  FIND 

"STORE"  for  STORE  "CREATE"  for  CREATE 
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Appendix  A  of  this  thesis  contains  the  listings  of  the 
application  programs  that  has  been  developed  by  handling 
these  DBASE  II  commands. 

The  organization  of  these  application  programs  include: 
addition,  deletion,  modification,  reports,  and  queries. 
Furthermore,  each  of  these  operations  is  applied  to  each  of 
the  database  files  of  the  Airplane's  Part  System. 

1 .  Addition  Operations 

The  addition  operations  are  applied  to  all  of  the 
files  of  the  system,  and  their  purpose  is  to  add  new  data 
to  the  appropriate  file.   The  addition  is  accomplished  inter 
actively  by  program  control  through  the  use  of  menus. 

The  addition  process  starts  by  asking  the  user  to 
enter  the  specific  data  (part,  user  of  the  part,  ordered 
part,  etc),  by  filling  some  blanks  on  the  screen  with 
characters  or  numbers.   Then  the  new  data  is  stored  into 
computer  memory,  displayed  on  the  screen  for  verification  by 
the  user,  and  then  copied  into  an  appended  blank  record.   In 
case  of  the  part  addition,  entries  are  added  to  the  part 
(master)  file,  plus  the  appropriate  file.   For  example,  a 
weapon  part  is  stored  into  weapons  data. 

2 .  Deletion  Operations 

Deletion  operations  like  addition  operations  are 
applied  to  all  the  files  of  the  system,  and  are  very  fast 
operations.   These  operations  enable  the  user  to  delete  data 
from  the  appropriate  file  interactively.   The  process  starts 
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by  asking  the  user  to  fill  some  blanks  of  the  screen,  in 
order  to  define  the  specific  data  that  is  going  to  be 
deleted.   The  program  then,  takes  this  input,  uses  the 
indexed  file,  finds  the  data  of  the  specific  record,  dis- 
plays all  the  record  data  to  the  screen  for  an  additional  check 
by  the  user,  and  ask  him/her  again  if  he/she  desires  to 
delete  this  record.   In  the  case  of  deletion  operations  from 
the  part  file,  the  specific  part  is  deleted  from  the  part 
(master)  file,  and  from  the  appropriate  file. 

3 .  Modification  Operations 

The  purpose  of  the  modification  operations  is  to 
allow  the  user  to  change  the  data  of  a  specific  record. 
This  process  starts  by  asking  the  user  to  input  through  the 
screen  the  specific  data  that  he/she  is  interested  in  modi- 
fying.  Then  this  entry  by  the  use  of  the  indexed  file 
locates  the  appropriate  record,  and  displays  its  data  on 
the  screen  enabling  the  user  to  modify  the  desired  data.   The 
new  entries  change  the  appropriate  record  on  the  part  (master) 
file,  and  the  affected  file  that  keeps  the  specific  data. 

4 .  Report  Operations 

The  report  operations  enable  the  system  to  report  the 
current  parts  of  the  airplane  stores.   The  menu  driven  capabil- 
ity helps  the  user  to  get  a  report  for  any  store  he/she  de- 
sires.  In  addition  to  store  reports,  the  reports  for  the 
airplane  stores  include  a  submenu  in  order  to  provide  to  the 
user  partial  report  for  a  specific  kind  of  parts.   For 
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example,  in  the  airplane-part  store,  the  user  can  take 
(printed  or  displayed)  reports  of  the  part  for  the  Fighter 
F-4. 

5 .   Query  Operations 

The  purpose  of  the  query  operations  is  to  allow  the 
user  to  ask  the  most  important  questions  that  could  retrieve 
from  the  system.   Since  the  number  of  the  queries  can  be  too 
large,  a  good  cooperation  between  the  designer  and  the  user 
is  a  must  in  order  to  design  the  system  to  operate  only  on 
the  appropriate  aspect  according  to  the  needs. 
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VII.   CONCLUSION 

The  increased  demands  of  the  Hellenic  Air  Force  Storage/ 
Utilization  Airplane  Parts,  created  the  need  of  decentra- 
lication  of  the  database  management  system  which  is  based  on 
the  use  of  mainframe  computers,  and  performed  at  the  Air 
Force  Headquarters  Level. 

This  thesis  developes  a  database  application  package 
which  utilizes  a  DBASE  II  database  management  system,  and 
a  microcomuter  environment  for  implementation  at  the  Air- 
Base  Level.   The  establishment  of  this  system  will  relieve 
the  current  system  from  being  overloaded,  and  provide  greater 
economy,  better  control  of  stocks  by  the  Air-Base  Commander, 
more  efficient  part  utilization,  and  more  efficient  "on  time" 
orders . 
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APPENDIX    A 

**********************   Entry. prg   ************************* 

*  AUTHOR         :     KONDYLOPOULOS    HARALABOS 

*  DATE  :    9-3-85 

*  PDRPOSE       :     THIS    PROGRAM    PROTECTS    THE    SYSTEM    FROM 

*  :     UNAUTHORIZED    ACCESS 
********************************************************* 

SET    ESCAPE  OFF 

STORE   t    TO  flag 

*  Create  a  continue   loop 
DO    WHILE    t 

ERASE 

SET    DEFAULT    TO    b: 

SET    COLOR    TC    30r 14 

5)     1,30   SAY     DATE() 

STORE    *  '    TO   mpassword 

a)    U,  10    SAY     "ENTER    TO    THE    DBASEr    BY    WRITING    THE    CORRECT 

o)    4,12   SAY     "PASSWORD11 

3     12,3    SAY     'ENTER    A    BLANK    TC    EXIT     • 

3    23,3    SAY     »     ENTER    THE    PASSWORD    ' 

SET    CONSOLE    OFF 

ACCEPT   TO    mpassword 

SET    CONSOLE    ON 

READ 

IF    $(rapassword,1 , 1)    =    '     ' 

CANCEL 
ENDIF   $  (mpassword, 1, 1 )=•     ' 
IF    mpassword   =      "GREEK"       .OR-    mpassword    =      "GOODS" 

ERASE 

SET    TALK    OFF 

SET    COLOR    TO    20,10 

3    5,27    SAY       •WELCOME    TO    THE    SYSTEM' 
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SET    COIOB    TO    30,14 

3   8, 10    SAY    ■     THIS    SYSTEM   ALLOWS    THE    USEE    TO    IMPROVE 

a    10,10    SAY    •    THE    PERFORMANCE    OF    THE    STORAGE/UTILIZA- 

9    12,10    SAY    •    HON    OF    THE    AIRPLANE   PARTS.        IT    IS    A 

3    14,10    SAY    ■    COMPLETELY    MENU    DRIVEN    SYSTEM,     AND    THE 

3    1  ,10    SAY       •     USER   JUST    FOLLOW    THE    INSTRUCTIONS     f 

SET    COLOR   TO    112,30 

3   23,20    SAY    CHR(7)+    "    PRESS    ANY    KEY    TO    CONTINUE    " 

SET    CONSOLE    OFF 

WAIT 

SET    CONSOLE    ON 

ERASE 

SET    COLOR    TO     112, 14 

DO   menu 
ELSE 

ERASE 

SET    COLOR    TO     112,  140 

a   8,15    SAY    CHR(7)+"TRY    AGAIN    PLEASE.     THIS    IS    NOT    THE 

a    8, 17    SAY    "    CORRECT    PASSWORD    " 

a   8,67    SAY    CHR  (002) 

SET    TALK    OFF 

STORE     1    TO    Z 

CO    WHILE    z<10 

a    8,75    SAY    CHR  (7) 
STORE    z+1    TO    z 

ENDDO     WHILE    Z<10 

SET    COLOR    TO    30,14 
END  IF 
ENDDO    WHILE    t 


**********************   Menu,  prg   ************************** 

*  AUTHOR     :  KONDYLOPOULOS  HARALABOS 

*  DATE       :  9-12-85 

*  PURPOSE  :    THIS    PROGRAM    SELECTS    THE    DESIRED    OPERATION    ON 

*  :     THE    SYSTEM    BY     USING    JSING    MENU    DRIVEN    CHOICE 
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*********************************************************** 

SET    ESCAPE    OFF 

SELECT    PRIMARY 

SET    COLOR       TO    3  0,10 

SET    FORMAT    TO    SCREEN 

SET    CONSOLE    ON 

SET    PRINT   OFF 

*  Create  a    continue  loop 

DO    WHILE    t 

CLEAR 

ERASE 

3    1,15    SAY    "    ***'     AIRPLANE'     PART    SYSTEM     •***'• 

3)    3,  1    SAY    'MAIN    MENU  • 

3)    3,60    SAY    DATE() 

a)    7  ,  1     SAY    '    OPTIONS:  • 

a>    9,1     SAY    •  0    EXIT   TO    OPERATING    SYSTEM1 

a    11,1    SAY     •  1    ADDITION    OPERATIONS' 

a)    13,1    SAY    '  2    DELETION    OPERATIONS' 

a)    15,1    SAY    '  3    MODIFICATION    OPERATIONS' 

a)    9,45    SAY     '  4    REPORT    OPERATIONS' 

9    1 1 ,45    SAY    •  5     QUERIES       ' 

9    13,45    SAY    '  6     EXIT    TO    DBASE' 

3    2  0,1    SAY    *       SELECT    CHOICE     ' 

STORE    '     '    TO    choice 

WAIT    TO    choice 

DO    CASE 

CASE  choice  =  '3  ' 
CLEAR 
QUIT 

CASE  choice  =  '  1 « 
DO  addmenu 
USE 

CASE  choice  =  '2» 

DO  delmenu 

USE 

48 


CASE    choice   =    "3' 

DO   modimenu 

USE 
CASE    choice  =    »4 • 

DO   repomenu 

USE 
CASE    choice   =    •5» 

DO   quemenu 

USE 
CASE    choice   =    *5  • 

CANCEL 
OTHERWISE 

STORE    1    TO    z 

DO    WHILE    z<5 

3    30,5    SAY    "INVALID    CHOICE, 
3    31,  5    SAY   CHR  (7) 
STORE    z+1    TO    z 

ENDDO 
ENDCASE 
ENDDO    WHILE    t 


PLEASE    TRY    A3AIN" 


***************    Ad dmenu.  prg    ****************************** 

*  AUTHOR         :     KONDYLCPOULOS    HARALABOS 

*  DATE  :     10-6-85 

*  PURPOSE       :     THIS    PROGRAM    SELECTS    THE    REQUIRED    ADDITION 

*  :     OPERATION    OF    THE   SYSTEM    BY    USING    MENU    DRIVEN 

*  :     CHOICE 

************* ** **********  ******************************** 

SET    ESCAPE    OFF 

SELECT     PRIMARY 

SET    COLOR    TO     20,5 

SET    TALK   OFF 

SET    FORMAT    TO    SCREEN 

SET    CONSOLE    ON 

*  Create  a    continue   loop 
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DO    WHILE   t 

CLEAR 

ERASE 

3    1,15    SAY    "***    'AIRPLANE1     PARTS    SYSTEM    •***'• 

3    3,1    SAY    'ADDMENU' 

3    3,  60    SAY    DATE() 

3    7,1     SAY    ■     OPTIONS: ' 


3  9,1  SAY  ■ 
3  11,1  SAY 
3  13,1  SAY 
3  15,1  SAY 
3  17,  1  SAY 
3  19,1  SAY 
3  9,45  SAY 
3  1  1  ,45  SAY  « 
3  13,45  SAY  • 
3  15,45  SAY  ' 
3  1  7 ,  45  SAY  • 
3    20,1    SAY    • 


0    EXIT   TO    OPERATING    SYSTEM1 

1  ADDITION    OF    PARTS1 

2  ADDITION    OF    AIRPL_STORES ' 

3  ADDITION    OF    WEAPON_S TORES « 

4  ADDITION    OF    JUNK_STORES' 

5  ADDITION    OF    ACESSOR_STORES' 

6  ADDITION    OF    SUPPLIERS' 

7  ADDITION    OF    INVOICES' 

8  ADDITION    OF    ORDERS     • 

9  EXIT    TO    DBASE' 

X    EXIT    TO    MAIN    MENU' 
SELECT    CHOICE        ' 


STORE    '     '    TO    choice 

WAIT    TO    choice 

DO    CASE 

*   Execution   of    the   appropriate    program 

CASE    choice   =    '3' 

CLEAR 

QUIT 
CASE    choice    =    '1' 

DO   adpart 

USE 
CASE    choice   =    '2 ' 

DO    adarstr 

USE 
CASE    choice    =    *3' 

DO   adwstr 

USE 
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CASE    choice   =    ,4» 

DO   adjstr 

USE 
CASE    choice   =    '  5» 

DO  adacstr 

USE 
CASE    choice   =    »6 ■ 

DO   adsuplr 

USE 
CASE  choice  =  *7» 

DO  adusage 

USE 
CASE    choice  =    »8" 

DO   adorder 

USE 
CASE    choice   =    •  9« 

CANCEL 
CASE    choice   =    »X'     .OR.    choice 

RETURN 

USE 
OTHERWISE 

STORE    1    TO    Z 

DO    WHILE    Z<10 

D    30  ,5    SAY    "INVALID   CHOICE. 

a    31,  5    SAY    CHR  (7) 
STORE    z+1    TO    Z 

ENDDO 
ENDCASE 
ENDDO    WHILE    t 


=    *x 


PLEASE    TRY    AGAIN" 


***************    Adpart.prq   ******************************* 


*  AUTHOR 

*  DATE 

*  PURPOSE 

* 


KONDYLOPOULOS  HARALABOS 
10-10-85 

THIS  PROGRAM  ADDS  PARTS  INTO  INVENTORY  BY 
AUTOMATIC  UPDATING  OF  THE  EFFECTED  STORE. 
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********************************************************** 
SET    ESCAPE    OFF 
SET    COLOR    TO    30  ,  14 
SET    TALK   OFF 
STORE   t   TO    flag 
*   Create  a    continue  loop 
DO    WHILE   t 
SELECT    PRIMARY 
USE    parts    INDEX   parts 

STORE    •  •    TO    mpno 

ERASE 

d    1,15    SAY    "********    'PART ADDITION     *********** 

5)    3r1     SAY       'ADDING    TO    INVENTORY     ■ 

a)    4,60     SAY    DATE  () 

9     15,1     SAY    'ENTER    PART     NUMBER    •     GET    mpno 

3    23,1     SAY    'ENTER    A    BLANK    TO    EXIT    TO    ADDMENU' 

READ 

*  Return    to   the   addmenu   for   a    blank  entry 
IF  $  (mpno,  1,5)=    ■  * 

RETURN 
ENDIF    $  (mpno, 1,5)=    »  ■ 

FIND    S mpno 

*  Can    not    locate   the   record 
IF   #<>0 

SET    COLOR    TO     112,  140 

a)    21,1     SAY    'THAT     PART    IS    ALREADY    ON    FILE    < 

3    22,40    SAY    CHR(7) 

SET    TALK    OFF 

STORE    1     TO    XX 

DC    WHILE    xx<35 

STORE    XX +1    TO    XX 
ENDDO    WHILE    xx<70 
SET    COLOR    TO    30 , 1 4 
LOOP 

ENDIF     #00 
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ERASE 

3    1,15    SAY    ***********     ■    PART — ADDITION    ************* 

a    3,1  SAY    'ADDING    TO    INVENTORY    ■ 

5)    4,60    SAY   DATE    () 

STORE  ■  ■    TO    mdesc 

STORE  •  '    TO    marplt 

STORE  *  'TO   mmanfnm 

STORE  •  *    TO    marstrna 

STORE  •  •    TO   mjuna 

STORE  '  •    TO    mwstrna 

STORE  ■  '    10   macstrna 

STORE  0   TO    mqoh 

STORE  0.00    TO    mcost 

ERASE 

3    6,1  SAY    'PART    NUMBER 

S    7,1  SAY    'DESCRIPTION 

a    8,1  SAY     'ARPLANE    TYPE 

a    9,1  SAY    «SOPPLIER_NAME 


ARPL_STORE_NAME 

JUANK_STORE_NAME 

WEAP_STORE_NAflE 

ACCES_STORE_NAME 

QOH 

COST 


+mpno 
GET    mdes3 
GET   marplt 
GET   mmanfnm 
GET   marstrna 
GET    mjiina 
GET    mwstrna 
GET    macstrna 
GET    mqoh 
GET    mcost 


ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 


a  10,  1  SAY 
a  11,1  SA  Y 
a  12,  1  SAY 
a  13,1  SAY 
a  14,1  SA  Y 
a  15, 1  SAY 
a  23, 1  SAY 
READ 

*    Protect   the   system   from   addition  into   more 
*    than    one    file 
IF    $  (macstrna, 1,3)  <>•         •  .  AND.  $(m  juna,  1 ,  3)  <>  '         ■ 
-AND.  $  (mwstrna,  1,  1)  <>•  .  AND.  $  (marstrna,  1,  3)  <>    ' 

SET    COLOR    TO     112,140 

a    17,15    SAY    «    THIS    IS    NOT    PART    OF    INVENTORY    « 

SET    COLOR    TO    3)  ,  14 

LOOP 

ENDIF 
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IF   $(mdescr1,5)  =•  ■ 

LOOP 

ENDIF 

*   add    the    record 
APPEND    BLANK 

REPLACE   acstrna    WITH   m acstrna , desc   WITH    mdesc 
REPLACE    manfnm    WITH    mmanfnm,    arstrna    WITH    marstrna 
REPLACE    arplt   WITH   marplt,    wstrna   WITH   mwstrna 
REPLACE    juna    WITH    mjuna 
REPLACE    pno   WITH    mpno,goh   WITH    mgoh,cost    WITH    mcost 

*  Allow   the   system   to  add    the  entry    to   the    appropriate 

*  file 
DO   CASE 

CASE  marstrna   <>    •  ■ 

SELECT    SECONDARY 
USE  arstores   INDEX    arstores 
FIND    &p-mpno 

'    TO   maslfno 


STORE 

t 

ERASE 

a)    6,1 

SAY     ■ 

5)    7,1 

SAY     ■ 

ARSTRNA  :'    +    p. marstrna 

PART    NUMBER    :'     ♦    p.mpno 
a)    8,1     SAY    *    DESCRIPTION    :«    +    p. mdesc 
3    9,1     SAY    '    AEPLANE    TYPE:'     +    p. marplt 
5)    10,1     SAY    "     QOH  :'     +    STR(p.mqoh,5) 

S)    11,1     SAY    '    COST  ;•    *    ST  R  (p.  mcost,  8) 

SET    COLCR    TO     112,140 

d)    12,1     SAY    '     ASLFNO    ??  :•    GET    maslfno 

SET    COLCR    TO    30,14 
READ 

APPEND     BLANK 

REPLACE   arstrna    WITH   p. marstrna,    pno    WITH    p.mpno 
REPLACE    aslfno    WITH    maslfno,    arplt    WITH    p.  marplt 
REPLACE    qoh    WITH    p.mqoh,    desc    WITH    p. mdesc 
REPLACE    cost    WITH    p. mcost 

CLEAR 
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LOOP 
CASE  wstrna    <>    ■  ■ 

SELECT    SECONDARY 
USE   wstores  INDEX   wstores 
FIND    Sp.mpno 

STORE    •  ■    TO    mwslfno 

ERASE 

3    5, 1     SAY     'WPSTORES 
3    6,1     SAY    'PART    NUMBER 
9    7,1    SAY    'DESCRIPTION 
3    8,1     SAY     »ARPLAN_TYPE 
S    9,1     SAY     'QUANTITY    ON    HAND 
a    10,  1     SAY    'COST 
SET    COLOR    TO     120,140 
a)     11,  1     SAY    '  WSLFNO    ?? 
SET    COLOR    TO    30,14 
READ 


+    p.mwstrna 
+    p.mpno 
+    p.mdesc 
*    p.raarplt 
+    STR(p.  mqoh,5) 
•    +    STR  (p.mcost,8) 


: '    GET   mwslfno 


APPEND     BLANK 

REPLACE  wstma   WITH    p.mwstrna,    pno   WITH    p.mpno 
REPLACE   arplt   WITH    p.marplt,    wslfno   tflTH    mwslfno 
REPLACE   qoh    WITH    p.  mqoh,    desc    WITH    p.mdesc 
REPLACE  cost    WITH    p.mcost 
CLEAR 
LOOP 
CAS  E   mjuna   <>    »  • 

SELECT    SECONDARY 
USE    junstores   INDEX    junstores 
FIND    Sp.mpno 

STORE     •  '    TO    mjslfno 

ERASE 
3    5,1     SAY    'JUNSTORES 


3    6,1  SAY  »PART_NUMBER 

3    7,1  SAY  'DESCRIPTION 

a    8,1  SAY  'QUAN_ON_HAND 

a    9,1  SAY  'COST 


♦  p. mjuna 
+    p.mpno 
+    p.mdesc 

*  STR  (p.  mqoh,  5) 

+    STR (p.mcost, 8) 
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SET    COLOR    TO     112,140 

a)    10,1     SAY    «  JUANK_SELF#    :•     GET    mjslfno 

SET    COLOfi    TO    30,  14 

READ 

APPEND    BLANK 

REPLACE    juna    WITH   p.mjuna,    pno    WITH   p.mpno 

REPLACE    jslfno   IHH    mjslfno,    qoh    WITH    p.mqoh 

REPLACE   desc    WITH   p.mdesc,    cast    WITH    p.  mcost 

CLEAR 

LOOP 
CASE     macstrna      <>   •  • 

SELECT    SECONDARY 

USE   acstores   INDEX    acstores 

FIND    5 p.mpno 

STORE     •  '    TO    macslfno 

ERASE 

a    5,1     SAY    'ACCESS_STORES 

3    6,1     SAY    *PART_NUMBER 

a)    7,1     SAY    'DESCRIPTION 

3    8,1     SAY     'ARPL_TYPE 

9    9,1     SAY    'QUAN_ON_HAND 

a    10,  1     SAY    'COST 

SET    COLOR    TO     112,140 

a     11,1     SAY    • ACCES_SELF_#    ? 

SET    COLOfi    TO    30,  14 

READ 

APPEND     ELANK 

REPLACE   acstrna    WITH   macstrna,    pno   WITH    p.mpno 

REPLACE   acslfno    WITH    macslfno,    arplt    WITH    p.marplt 

REPLACE   cost    WITH   p. mcost,    acstrna   WITH    p. acstrna 

REPLACE    desc    WITH    p.mdesc,    qoh    WITH    p.qoh 

CLEAR 

LOOP 
OTHERWISE 

a     18,10    SAY    'THIS    IS    NOT    PART    OF    THE    INVENTORY    ■ 


♦  macstrna 

♦  p.  mpno 
+    p.  mdesc 

♦  p. marplt 

+    ST  R  (p.mqoh,  5) 
1    +    STR(p.  mcost, 8) 

1    GET    macslfno 
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CLEAR 
LCOP 

ENDCASE 
ENDDO    WHILE    t 


****************   Adsuplcprg    ***************************** 


*  AUTHOR 

*  DATE 

*  PURPOSE 

* 


KONDYLOPOULOS  HARAL 
10-25-85 

THIS  PROGRAM  IS  USED  FOR  ADDING  NEW  SUPPLIERS 

INTO  INVENTORY 
*******  ************************************************  *** 

SET  ESCAPE  OFF 

SET  COLOR  TO  30  f  14 

SET  TALK  OFF 

SELECT    PRIMARY 

USE   suppliers   INDEX   suppliers 

*  enter   suppliers 

DO    WHILE   t 

SIORE    '  '    TO    mmanfnm 

ERASE 

a)    1,1     SAY    "***    'SJPPLIERS — ADDITION    «***•• 

a)    3,1     SAY       'ADDING    TO    INVENTORY     • 

a)    3,60    SAY   DATE() 

a)    15,1    SAY   "ENTER    SUPPLIER'S,    NAME    "    GET    mmanfnm 

a)    23,1     SAY    'ENTER    A    BLANK    TO    EXIT1 

STORE    I  (mmanfnm)    TO    mmanfnm 

READ 

IF  $ (mmanfnm, 1,5)=    ■  • 

RETURN 

ENDIF 

FIND    Smmanfnm 

IF   #<>0 

a)    22,1    SAY    "THIS     SUPPLIER'S    NAME    ALREADY    " 
3    22,2    SAY    "    ON    THE    FILE    " 

a)    22,60    SAY    CHR  (7) 
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SET    TALK    OFF 

STORE    1    TO    XX 

DC    WHILE    XX<20 

STORE    XX+1    TO    XX 

ENDDO    WHILE 

LCOP 
ENDIF  #00 
ERASE 

2>     1,1     SAY    '***    'SUPPLIER'S — ADDITION     •***• 
3    2,1     SAY     'ADDING    TO   INVENTORY    ' 
5)    2,60     SAY    DATE     () 


'    TO   mnanfadr 
'    TO   mzip:  co 

'    TO    mcountry 
•    TO   marplt 
TO    mdel:time 

'    TO    mproduct 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

ERASE 

a    4,1     SAY    "SUPPLIER'S_NAME      "+   mmanfnm 

a)    5,1     SAY    "SUPPLIER'S    ADDRE   "    GET    mmanfadr 

a    6,1     SAY    'ZIP:CODE  »     GET    mziprco 

a    7,1    SAY    'COUNTRY  '    GET    mcountry 

a    8,1     SAY    'ARPL_TYPE_SUPPORT'     GET    marplt 

a    9,1     SAY    'DELIVERY    TIME  '     GET    mdel:time 

a     10,1     SAY    'PRODUCT  ♦    GET    mproduct 

3    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 

READ 

IF  $( mmanfnm , 1 , 1 )= '    • 

RETURN 
ENDIF 

*    add    the    record 
APPEND     ELANK 

REPLACE  manfnm  WITH  mmanfnm,  manfadr  WITH  mmanfadr 
REPLACE  zip:co  WITH  mzip:co,  country  tflTH  mcountry 
REPLACE   del:time   WITH    radel;time,    arplt    WITH    marplt 


REPLACE   product    WITH    mproduct 
END  DO    WHILE    t 

***************    Adorder   ****************************** 

*  AUTHOR  :    KONDYLOPOULOS    HAEALABOS 

*  DATE  :    10-15-85 

*  PUfiPOSE  :    THIS    PROGRAM   ADDS    NEW     ORDERS    INTO    ORDER 

*  :    FILE 

***************  ***********************  ***************** 

SET    ESCAPE    OFF 

SET    COLCR   TO    30,14 

SET    TALK   OFF 

SELECT    PRIMARY 

USE   orders    INDEX  orders 

*  enter   orders 
DO    WHILE   t 

STORE     ■  '    TO    mordno 

ERASE 

a)    1,1     SAY    ii**********     « CRDER--ADDITION    ************ 

9    3,1     SAY       'ADDING    TO    INVENTORY     • 

a)    3,60    SAY   DATE() 

a)    15,  1     SAY    "ENTER    ORDER_   NUMBER    «    GET    mordno 

a)    23,1     SAY    'ENTER    A    BLANK    TO    EXIT' 

READ 

IF  $(  mordno,  1,  5)  =    •  ■ 

RETURN 
ENDIF 

FIND    Smcrdno 
IE    #00 

3)   22,1    SAY    'THIS     ORDER    NUMBER    ALREADY    EXIST     • 

3    22,3    SAY    »     ON    FILE    • 

3   22,60    SAY    CHR(7) 

SET    TALK    OFF 

STORE    1    TO    xx 

DO    WHILE    xx<20 
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STOBE  XX+1  TO  xx 

ENDDO  WHILE 

LCOP 
ENDIF  #0  0 
ERASE 

3    1,1     SAY     ***********     « ORDER--ADDITION    '***********» 
3    2,1     SAY    'ADDING    TO   INVENTORY    ■ 
3    2,60    SAY    DATE     () 
STORE     ■  •    TO   mpno 

STORE     •  '    TO    mdesc 

•  '    TO    mdate 

»  •    TO    mordna 

«  •    TO   mmanfnm 


STORE 

STORE 

STORE 

STORE     0    TO    mqnt 

STORE    0.00    TO    mcost 

ERASE 

9    4,1     SAY    "ORDER_N UMBER 

3    5,1     SAY    "DATE 

3    6,1     SAY     'PNO 

5)    7,1     SAY     'DESCRIPTION 

a)    8,1     SAY     'NAME    OF    THE    ORDERER     »     GET    mordna 

5)    9,1     SAY    'SUPPLIER 

a     10,1     SAY    'QUANTITY    ORDERED 

a    11,1     SAY    'COST 

S    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 

READ 

IF  $  (mmanfnm,  1,1)='     ' 

RETURN 
ENDIF 

*    add    the    record 
APPEND     BLANK 

REPLACE    manfnm    WITH   mmanfnm,    ordno   WITH    mordno 
REPLACE    pno    WITH    mpno,     desc    WITH    mdesc,    qnt    WITH    mqnt 
REPLACE   cost    WITH    mcost,    ordna   WITH   mordna, 
REPLACE    date    WITH    mdate 

60 


"  ♦  mordno 

"  GET  mdate 

'  GET  mpno 

'  GET  mdesc 


•  GET  mmanfnm 

•  GET  mqnt 

•  GET  mcost 


END  DO    WHILE    t 


***************    Adusage. prg    ****************************** 

*  AUTHOR         :     KONDYLCPOU3S    HARALABOS 

*  DATE  :     10-9-85 

*  PURPOSE       :     THIS    PROGRAM    ADDS    INVOICES    INTO    USAGE    FILE 

*  :     BY    USING  "THE    PART    NUMBER 
**************************************  ******************** 

SET    COLCfi    TO    30,14 

SET    TALK   OFF 

SET    ESCAPE    OFF 

SELECT    PRIMARY 

USE    usage      INDEX   usage 

*  enter   orders 
DO    WHILE    t 

STORE    '  •     TO    mpno 

ERASE 

a)     1,1     SAY    "********    «  INVOICE—ADDITION    «********" 

a)    3,1     SAY       'ADDING    TO    INVENTORY     ■ 

a>    3,60    SAY    DATE{) 

a)    15,  1     SAY    "ENTER   PART_NUMBER    "    GET    mpno 

a)    23,1     SAY    'ENTER    A    BLANK    TO    EXIT' 

READ 

IF   $(rapno,1,1)=    •    ■ 

RETURN 
ENDIF 

FIND    Smpno 
IF    #    <>   0 

2)    22,1    SAY    'THIS    PART    HAVE    BEEN    REGISTER    TO     • 
3   2  2,3     SAY    'THE    FILE' 

3    22,60    SAY    CHR(7) 

SET    TALK    OFF 

SIORE    1    TO    XX 

DO    WHILE    xx<20 

STORE    XX +1    TO    XX 
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ENDDO    WHILE 
LCOP 
ENDIF    #0  0 
EEASE 

a    1,1     SAY    ********     'INVOICE-- ADDITION     *********** 
3    2,1     SAY    'ADDING    TO    INVENTORY    ' 
S    2,60    SAY   DATE     () 
STORE    ♦  •    TO   minvno 

STORE    '  '    TO    mdesc 

SIOfiE     ■  '    TO    mdate 

STORE    •  '     TO    muname 

STORE    «  ■    TO    muaddr 

STORE    0    TO    mqnt 
STORE    0.00    TO    mcost 
ERASE 

1     SAY    "PART_NUMBER 

1     SAY    "DATE 

1     SAY     'INVOICE     NUMEEfi 

1     SAY    'DESCRIPTION 


a) 

5, 

a) 

6, 

a) 

7, 

a) 

8, 

a> 

9, 

"  +   mpno 

"  GET    mdate 

'  GET    minvno 

'  GET    mdesc 


1     SAY     'NAME   OF    THE    ORDERER    '    GET    muname 


'    GET    muaddr 
'    GET    mqnt 


'    GET    mcost 


1     SAY    'SUPPLIER 
a     10,1     SAY    'QUANTITY    RECEIVED 
a    11,1     SAY    'COST 
a    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 
READ 
IF  $  (minvno,  1,  1)  =•     • 

RETURN 
ENDIF 

*    add    the    record 
APPEND     BLANK 

REPLACE   invno    WITH    minvno,    uname    WITH    muname 
REPLACE    pno    WITH    mpno,     desc   WITH    mdesc,    qnt    WITH    mqnt 
REPLACE   cost    WITH   mcost,    uaddr   WITH   muaddr 
REPLACE    date    WITH    mdate 
ENDDO    WHILE     t 
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*********************   Alarstr.prg   *********************** 

*  AUTHOR    :  KONDYLOPOOLOS   HARALABOS 

*  DATE      :  10-18-85 

*  PURPOSE       :     THIS    PROGRAM    ADDS    NEW    AIR PLANE_STORES    INTO 

*  :     THE   SYSTEM 
********************************************************* 

SET    ESCAPE    OFF 

SET    COLOR    TO    30,  14 

SELECT    PRIMARY 

USE    ars tores    INDEX    arstores 

STORE    t    TO    flag 

*  enter  airplane's   stores 
DO   WHILE  flag 

STORE    •  ■    TO    marstrna 

ERASE 

9     1,1     SAY     *****    »ARPL_SIORES ADDITION    •****' 

a)    2,1     SAY       'ADDING    TO    INVENTORY     ■ 

3    3,60    SAY    DATE() 

3    15,1    SA¥    'ENTER    ARPL_STORE_ NAM E    ■    GET    marstrna 

d)    23,1     SAY    'ENTER    A    BLANK   TO    EXIT' 

READ 

IF  $ (marstrna, 1 ,5)  =    '  • 

RETURN 
ENDIF    $  (mpno,1,5)=    •  » 

FIND   Smarstrna 
IF   #<>0 

a)    22,1    SAY    'THIS    ARPL_STORE    ALREADY     EXIST    ON    ' 

a)   22,3    SAY    '     FILE    » 

d    22,60    SAY   CHR{7) 

SET    TALK    OFF 

STORE    1    TO    XX 

DC    WHILE    XX<20 

STORE    XX +1    TO    XX 

ENDDO    WHILE 
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LOOP 
ENDIF  #00 
ERASE 

S    1,1     SAY    *********    •  ARPL_STORES— -ADDITION    ********* 
3)    2,1     SAY     'ADDING    TO    INVENTORY    ' 
a)    2,60     SAY   DATE     () 
STORE    •  '    TO   mpno 

STORE     •  •    TO   mdesc 

STORE    •  '    TO    maslfno 

STORE     •  •    TO   marplt 

STORE    0    TO    mgoh 
STORE    0.00    TO    mcost 
3    4,1     SAY    'ARPL_STORE_NAME 
a    5,1     SAY    'PART    NUMBER 
3    6,1     SAY     'DESCRIPTION 
a    7,1     SAY     «ARPL_SELF_NUMBER 
a    8,1     SAY    'ARPLANE    TYPE 
a    9,1     SAY     'QNT_ON_HAND 
a    10, 1     SAY    'COST 

3    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 
READ 
IF  $  (mpno,  1,1)  =  '     ■ 

RETURN 
ENDIF 

*    add    the    record 
APPEND    ELANK 

REPLACE    pno   WITH    mpno, desc    WITH    mdes:; 
REPLACE   arstrna    WITH   marstrna,    arplt    WITH    marplt 
REPLACE    aslfno    WITH    maslfno, qoh    KITH    mqoh 
REPLACE    cost    WITH    mcost 
ENDDO    WHILE     t 


+    marstrna 
GET   mpno 
GET    mdesc 
GET   maslfno 
GET    marplt 
GET    mqoh 

'    GET   mcost 


******************    Adwstr.prg    *********************** 

*  AUTHOR  :     KONDYLOPCULOS     HARALABOS 

*  DATE  :     10-19-85 
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*  PORPO  SE  :    THIS    PROGRAM   ADDS    NEW     WEAPON    STORES    INTO 

*  : 'INVENTORY 

***********  ********************************************* 

SET    ESCAPE    OFF 

SET    COLOR    TO    30,14 

SELECT    PRIMARY 

SET    TALK   OFF 

DSE  wstores  INDEX  wstoces 

STORE  t  TO  flag 

*  enter   weapon's  stores 
DO    WHILE  flag 

STORE    ■  ■    TO   mwstrna 

ERASE 

d     1,1     SAY     ******    • WEAPON_STORES ADDITION    '******• 

a)    2,1     SAY       'ADDING    TO    INVENTORY     ' 

a)    3,60    SAY    DATE() 

a    15,1     SAY    'ENTER    W EAPON_STOR E_NAME    '     GET    mwstrna 

a)    23,1     SAY    'ENTER    A    BLANK    TO    EXIT' 

READ 

IF  $  (mwstrna, 1,5)=    '  » 

RETURN 
ENDIF    $  (mwstrna, 1,5)=    •  ■ 

FIND    Smwstrna 
IF    #<>0 

a)    22,1     SAY    'THIS     WEAPON_STORE    ALREADY    EXIST     ' 

a)    22,3    SAY    '     ON    FILE    ' 

a)    22,60    SAY    CHR(7) 

SET    TALK    OFF 

STORE    1    TO    XX 

DC    WHILE    xx<20 

STORE    XX +1    TO    XX 

ENDDO    WHILE 

LCOP 
ENDIF  #00 
ERASE 

65 


a    1,1     SAY    •****    'WEAPON_STORES-- ADDITION     ******* 
'a    2,1     SAY    'ADDING    TO   INVENTORY    " 
3    2,60    SAY    DATE     () 
STORE     •  ■    TO   mpro 

STORE    ■  ■    TO    mdesc 

STORE     ■  •    TO   mwslfno 

STORE     •  '    TO    marplt 

STORE    0    TO   mgoh 
STORE    0.00   TO    mcost 
ERASE 

9    4,1     SAY    'WEAP_STORE_NAME 
a)    5,1     SAY    'PART    NUMBER 
a)    6,1     SAY     'DESCRIPTION 
9    7,1     SAY     'WEAP_SELF_NUMBER 
a    8,1     SAY    'ARPLANE    TYPE 
a    9,1     SAY     'QNT_ON_HAND 
a    10, 1     SAY    'COST 

a    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 
READ 
IF  $  (mpno,  1,  1)  =•    • 

RETURN 
ENDIF 

*    add    the    record 
APPEND     BLANK 

REPLACE    pno   WITH   mpno,desc   WITH    mdess 
REPLACE   wstrna    WITH   mwstrna,    arplt    WITH    marplt 
REPLACE    wslfno    WITH    mwslfno, goh    WITH    mgoh 
REPLACE   cost    WITH    mcost 
END  DO    WHILE     t 


+   mwstrna 

GET   mpno 
GET    mdes^ 
GET   mwslfao 
GET   marplt 
GET    mgoh 
'    GET    mcost 


******************    Adjstr.prg    ************************* 


*  AUTHOR 

*  DATE 

*  PURPOSE 
* 


KONDYLOPOULOS     HARALABOS 

10-19-85 

THIS  PROGRAM  ADDS  NEW  JUNK  STORES  INTO  THE 

SYSTEM 
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**************************************  **************** 

SET    ESCAPE    OFF 

SET    COLOR    TO    30,14 

SELECT    PRIMARY 

SET    TALK   OFF 

USE    junstores   INDEX    junstores 

STORE   t    TO   flag 

*  enter    junk's   stores 

*  Create  a    continue   loop 
DO   WHILE  flag 

STORE    *  •    TO    mjuna 

EEASE 

5)    1,1     SAY    ******    •  JUNK_STOEES ADDITION    »******• 

a)    2,1     SAY       'ADDING    TO    INVENTORY     ■ 

a    3,60    SAY   DATE() 

a)    15,1     SAY    'ENTER   JUNK_STORE_NANE    •    SET    mjuna 

3    23,1     SAY    'ENTER    A    BLANK    TO    EXIT* 

READ 

IF  $(mjuna,  1,1)  =   "     • 

RETURN 
ENDIF    $  (mjuna,  1,1)='     • 
FIND    Smjuna 
IF   #<>0 

3   22,1    SAY    'THIS    JUNK_STORE    ALREADY     EXIST    ON    ' 

S    22,3    SAY    '     FILR    • 

a   22,60    SAY    CHR(7) 

SET    TALK    OFF 

STORE    1    TO    XX 

DO    WHILE    xx<20 

STORE    xx+1    TO    XX 

ENDDO    WHILE 

LOOP 
ENDIF     #00 
EBASE 
3     1,1     SAY     *****     'JUNK_STORES — ADDITION     '*****• 
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5)    2,1     SAY     'ADDING    TO   INVENTORY    • 

a    2,60    SAY    DATE     () 

STORE    ■  '    TO    mpno 

STORE     •  f    TO    mdesc 

STORE     ■  ■    TO   mjslfno 

STORE    ■  ■    TO    marplt 

SIORE    0    TO   mgoh 

STORE    0.00    TO    mcost 

ERASE 

d)    4,1     SAY    'JUNK_STORE_NAME 

a)    5,1     SAY    'PART    NUMBER 

a)    6,1     SAY    •DESCRIPTION 

a)    7,1     SAY     »JUNK_SELF_NUMBER 

a)    3,1     SAY    fQNT_ON_HAND 

a)    9,1     SAY     "COST 

3    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 

READ 

IF  $(mpno,1,1)=»    ' 

RETURN 
ENDIF 

*    add    the    record 
APPEND    ELANK 

REPLACE   pno   WITH    mpno, desc    WITH    mdesc, juna    WITH    mjuna 
REPLACE    jslfno    WITH    mjslfno, goh    WITH    mqoh 
REPLACE   cost    WITH    mcost 
END  DO    WHILE     t 


+   mjuna 
GET   mpno 
GET    mdes^ 
GET   mjslfno 
GET    mqoh 
GET   mcost 


******* *********    Adacstr.prg    ****************************** 

*  AUTHOR     :  KONDYLOPOULOS   HARALABOS 

*  DATE       :  10-2-85 

*  PURPOSE  :    THIS    PROGRAM    ADDS    NEW     ACESSORIES    STORES    INTO 

*  :     THE    SYSTEM 
*********************************************************** 

SET    ESCAPE    OFF 

SET    COLOR    TO     30,  14 
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SELECT    PRIMARY 

USE    acstores    INDEX    acstores 

STORE   t    TO    flag 

*  enter  accessories  stores 

DO  WHILE  flag 

STORE    *  ■    TO    macstrna 

ERASE 

9     1,1     SAY    '****     'ACESSORIES_STORES ADDITION    •*****« 

9    2,1     SAY       'ADDING    TO    INVENTORY     • 

3    3,60    SAY   DATE  () 

3    15,1    SAY    'ENTER   ACESSSOR_ST OEE_NAME    ■     GET   macstrna 

3    23,1     SAY    'ENTER    A    BLANK    TO    EXIT' 

READ 

IF  $  (macstrna,  1 ,  1)  =    •     * 

RETURN 
ENDIF    $  (macstrna, 1  ,  1)=    '    ' 
FIND    &macstrna 
IF   #<>0 

3    22,1    SAY    'THIS    ACESSOR_STORE    ALREADY    EXIST    ' 

9   22,3    SAY    '     ON    FILE    ' 

9    22,60    SAY    CHR (7) 

SET    TALK    OFF 

STORE    1    TO    XX 

DC    WHILE    XX<20 

STORE    XX +1    TO    XX 
ENDDO    WHILE 
LCOP 
ENDIF     #00 
ERASE 

3     1,1     SAY     *****     'ACESSORIES_STORES — ADDITION    «******« 
a    2,1     SAY     'ADDING    TO   INVENTORY    ' 
S    2,60     SAY    DATE     () 
STORE     '  »    TO    mpno 

STORE    '  '    TO    mdesc 

STORE    '  •    TO   macslfno 
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STORE  «  ■    TO   marplt 

STORE  0    TO    mqoh 

STORE  0.00    TO    mcost 

a    4,1  SAY    »ACESS_STORE_NAME      •+    macstrna 


GET   mpno 
GET   mdesc 
GET   macslfno 
GET   marplt 
GET    mqoh 
•    GET   mcost 


3    5,1     SAI     'PART    NUMBER 

3    6,1     SAY    'DESCRIPTION 

S    7,1     SAY    «ACESS_SELF_NUMBER 

3    8,1     SAY     'ARPLANE    TYPE 

3    9,1     SAY    'CNT_ON_HAND 

3     10,  1     SAY    'COST 

3    23,1     SAY    'ENTER    A    BLANK    DESCRIPTION    TO    EXIT' 

READ 

IF   $(mpno,1,1)=»    • 

RETURN 
ENDIF 

*    add    the   record 
APPEND    ELANK 

REPLACE   pno   WITH   mpno,  desc    WITH    mdesc 
REPLACE   acstrna    WITH    macstrna,    arplt    WITH    marplt 
REPLACE   acslfno    WITH    macslfno,    qoh    WITH    mqon 
REPLACE   cost    WITH    mcost 
ENDDO    WHILE    t 


s***************   Delmenu-prg    ************************** 


*  AUTHOR 

*  DATE 

*  PURPOSE 
* 


KONDYLOPCULOS     HARALABOS 
10-11-85 

THIS    PROGRAM   SELECTS    THE    REQJIRED    DELETION 
OPERATION, BY    USING    MENU    DRIVEN    CHOICE 


####***$***#$**$*************************************** 

SET    ESCAPE    OFF 

SELECT     PRIMARY 

SET    COLOR    TO     20, 5 

SET    TALK    OFF 

SET    FORMAT    TO    SCREEN 

SET    CONSOLE     ON 
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DO    WHILE   t 

CLEAR 

ERASE 

3    1,15    SAY    »****     •AIRPLANE'     PARTS    SYSTEM    •♦***•■ 

3    3,  1    SAY    'DELMENU' 

a   3,60    SAY    DAT£() 

a    7,1    SAY    ■     OPTIONS:  ■ 


a   9, 1    SAY    • 
a    1  1  ,  1    SAY 
a    1 3,  1    SAY 
a    15,  1    SAY 
a    17,1    SAY 
3    9,45    SAY 
a    1  1,45    SAY 
a    13,45    SAY 
a    15,45    SAY 
a    17,45    SAY 
a    19,30    SAY 


a    20,1    SAY    •       SELECT    CHOICE 

STORE    •     '    TO    choice 

WAIT    10    choice 

DO    CASE 

CASE    choice   =    »3  • 

CLEAR 

QUIT 
CASE    choice   =    «V 

DO  depart 

USE 
CASE    choice   =    '2' 

DO    dearstr 

USE 
CASE    choice   =    '3' 

DO   dewstr 

USE 
CASE    choice   =    •[*' 


0    EXIT    TO    OPERATING    SYSTEM1 

1  DELETION    OF    PARTS' 

2  DELETION    OF    AIRP L_STORES • 

3  DELETION    OF    WEAPON_S TORES' 

4  DELETION    OF    SUPPLIERS' 

5  DELETION    OF    JUNK    STORES' 

6  DELETION    OF    ACCES_STORES' 

7  DELETION    OF    ORDERS' 

8  DELETION    OF    INVOICES' 

9  EXIT    TO    MAIN    MENU' 

X    EXIT    TO    DATABASE" 
i 
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DO    desuplr 

USE 
CASE    choice   =    •5' 

DO   dejstr 

USE 
CASE    choice   =    '6 ' 

DO   deacstr 

USE 
CASE  choice  =  '  7» 

CLEAR 

DO  deorder 

USE 
CASE  choice  =  '8* 

DO  deusage 

USE 
CASE    choice   =    '9* 

RETURN 

USE 
CASE    choice   =    'X'     .OR.    choice    = 

CANCEL 
OTHERWISE 

STCRE    1    TO    z 

DO    WHILE    Z<5 

a)    30  ,5    SAY    "INVALID    CHOICE-.    PLEASE    TRY    AGAIN    " 

a)    31  ,5    SAY    CHR  (7) 
STORE    z-H    TO    z 

ENDDO 
ENDCASE 
ENDDO    WHILE     t 


»vl 


************    Depart. prg    *********************************** 


*  AUTHOR 

*  DATE 

*  PURPOSE 
* 


KONDYLOPOULOS    HARALABOS 

10-15-85 

THIS    PROGRAM    DELETES    PARTS    FROM    THE    INVENTORY 

SYSTEM    MASTER    FILE    WITH    AUTOMATIC    UPDATING 
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*  :     OF    THE    EFFECTED    FILE 

SET    COLOR   TO    30,22 
DO    WHILE    t 

SELECT    PRIMARY 

USE    parts  INDEX   parts 

ERASE 

STORE    •  •    TO    mpno 

3>    2,1    SAY    'DELETING    FROM    P&RT    FILE    ■ 

a)   2,60    SAY    DATE() 

9  4,20  SAY  •  ENTER  PART  NUMBER  ■  GET  mpno 

a)  23,  1  SAY  '  ENTER  A  BLANK  TO  EXIT  TO  DELMENU  • 

READ 

IF  $(mpno,1,1)  =  »  ■ 

RETURN 
ENDIF 

FIND    6mpno 
IF    *    =    0 

ERASE 

SET    COLOR    TO     1 12, 140 

3    22,1    SAY     •    THAT    PART    IS    NOT    ON    THE    FILE    II!     ' 

a)     22,3    SAY    ■    PLEASE    TRY    AGAIN    ' 

SET    COLOR    TO    30,1  4 

a)    23,  1    SAY    CHR  (7) 

SET    TALK    OFF 

STCRE    1    TO    Z 

DO    WHILE    Z<3D 

STORE    Z+1    TO    z 

ENCDO    WHILE 

LOCP 
ENDIF    #    =    0 

STORE    •  «    TO    mdesc 

STORE    '  ■    TO    marplt 

STORE    '  ■    TO   mmanfnm 

STORE    •  •     TO    marstrna 
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STOfiE  ■ 
STORE  • 
STORE    » 


•    TO   mwstrna 
1     TO   macstrna 
•    TO   mjuna 


STORE    0    TO    raqoh 

STORE    0.00    TO    mcost 

STORE   desc    TO    mdesc 

STORE   arplt  TO   marplt 

STORE    manfnm    TO    mmanfnm 

STORE   arstrna    TO    marstrna 

STORE   wstrna    TO    mwstrna 

STORE    juna    TO    mjuna 

STORE   acstrna    TO    macstrna 

STORE    qoh    TO    mqoh 

STORE   cost    TO    mcost 

ERASE 

a  2,1  SAY  'DATA  OF  THE  RECORD  ■ 

a  2,60  SAY  DATE() 

d    6,  1    SAY    'PART    NUMBER 

a)    7,1    SAY    'DESCRIPTION 

a)    8,1     SAY    'AIRPLANE    TYPE 

a)    9,1     SAY    'SUPPLIERS     NAME 

a)    10,1     SAY    ' ARPL_STORE_NAME 

9    1  1  ,  1    SAY    • JUNK_STORE_NAME 

a)    12,1    SAY    'WEAPON_STO_NAME 

a)    13,1    SAY    '  ACCES_STO_NAME 

a)    1  4,  1    SAY     'QOH 

3    1 5,  1    SAY    'COST 

d)    18,20    SAY    'PLEASE    BE    PATIENT ' 

a)    19,20    SAY    'THIS    WILL    TAKE    TIME    2' 
DELETE 
PACK 
DO    CASE 

CASE    marstrna   <>     •  ' 

SELECT    SECONDARY 

USE   arstores   INDEX    arstores 
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•unpno 

+mdes3 

■•■marplt 

♦mmanf nm 
■♦■marstrna 
♦mjuna 
♦■mwstrna 
♦macstrna 
+  STR  (mqoh,  5) 
+  STR  (mcost  ,8) 


FIND   Smpno 

D  EL  ET  E 

PACK 

CLEAR 

LOOP 
CASE    mwstrna   <>    ■  • 

SELECT    SECONDARY 

USE   wstores    INDEX    wstores 

FIND    Smpno 

DELETE 

PACK 

CLEAR      • 

LOOP 
CASE    mjiina   <>    '  ' 

SEIECT   SECONDARY 

USE    junstores   INDEX    junstores 

FIND    Smpno 

DELETE 

PACK 

CLEAR 

LOOP 
CASE    macstrna   <>    •  • 

SELECT    SECONDARY 

USE    acstores   INDEX    acstores 

FIND    Smpno 

DELETE 

PACK 

CLEAR 
ENDDO    WHILE    t 


*******************    Desuplr.  prcr    *********************** 


*  AUTHOfi 

*  DATE 

*  PURPOSE 


KONDYLOPOULOS    HARALABOS 

10-11-85 

THIS    PROGRAM    DELETES    SUPPLIERS    OF    THE    SYSTEM 


*******  ******  ******************************************* 
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SET    COLOR    TO     30,22 
SET    TALK   OFF 
SET    ESCAPE    OFF 
DO    WHILE    t 

SELECT    PRIMARY 

USE    suppliers    INDEX    suppliers 

ERASE 

STORE    '  '    TC  mmanfnm 

d    2, 1    SAY    'DELETING    FROM    SUPPLIERS    FILE     ' 

a)   2  ,60    SAY    DATE() 

5)  4,20  SAY  '  ENTER  SUPPLIER  NAME  ■  GET  mmanfnm 

a)  23,  1  SAY  •  ENTER  A  BLANK  TO  EXIT  TO  DELMENU  • 

READ 

IF  $  (mmanfnm, 1 ,1)  =  •  • 

RETURN 
ENDIF 

FIND    Smmanfnm 
IF    *    =   0 

ERASE 

SET    COLOR    TO     112, 140 

3    22,1    SAY     '    THAT    PART    IS    NOT    ON    THE    FILE    !!!     ' 

3     22,3    SAY     '     PLEASE    TRY    AGAIN    • 

SET    COLOR    TO    30,1 4 

D     23,  1    SAY    CHR  (7) 

SET    TALK    OFF 

STORE    1    TO    Z 

DO    WHILE    z<33 

STORE    Z  +  1    TO    z 

ENCDO    WHILE 

LOCP 


ENDIF 

# 

=    0 

STORE 

t 

•    TO    mmanfadr 

STORE 

i 

1     TO 

mzip;co 

STORE 

i 

•     TO 

mcountry 

STORE 

i 

'     TO 

mar  pit 
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STORE    •         •    TO  mdel:time 

STORE    ■  •    TO   mproduct 

STORE   manfadr   TO    mmanfadr 

STORE    manfnm    TO    mmanfnm 

STORE    zip:co   TO   mzip:co 

STORE  country    TD    mcountry 

STORE    product   TO    mproduct 

STORE    del:time   TO    mdelctime 

STORE   arplt  TO   marplt 

ERASE 

3  2,1  SAY  'DATA  OF  THE  RECORD  ■ 

a  2,60  SAY  DATE() 

3)    6,1    SAY    'SUPPLIER     NAME  :' 

SET    CCLCR    TO    20r 10 

3  6,20   SAY    +    1  (mmanfnm) 

SET    CCLCR   TO    30,  14 

9    7,1    SAY    'SUPPLIER    ADDRESS     :' 

a   8,1     SAY    'ZIP    CODE 

a    9,  1    SAY    'COUNTRY 

a    10,1    SAY    'ARPLANE    TYPE 

5>    11,1    SAY    'DELIVERY     TIME 

S    12,  1    SAY    'PRODUCT 

a    18,20    SAY    'PLEASE    BE    PATIENT ' 

DELETE 
PACK 
ENDDO    WHILE 


t 

♦mmanf adr 

t 

♦zip: co 

1 

+mcountry 

•  f 

♦marplt 

• 

♦  radel:  time 

«  f 

-•■mproduct 

********************    Deorder.prg   ********************** 

*  AUTHOR    :  KONDYLOPOULOS   HARALABOS 

*  DATE      :  10-14-85 

*  PURPOSE       :     THIS    PROGRAM    DELETE    ORDERS    FROM    THE    SYSTEM 
******************************************************* 

SET    COLOR    TO    30,22 
SET    TALK   OFF 
SET    ESCAPE    OFF 
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DO    WHILE   t 

SELECT    PRIMARY 

USE    orders    INDEX    orders 

ERASE 

STORE    ■  •    TO    mordno 

3    2,1    SAY    'DELETING    FROM    ORDER    PILE    ' 

9    2,60    SAY    DATE() 

a    4,20    SAY    •    ENTER   ORDER    NUMBER    »    GST    mordno 

3    23,1    SAY    ■     ENTER    A    BLANK    TO    EXIT    TO    DELMENU    • 

READ 

IF    $  (mordno, 1 ,1)    =    ■     • 

RETURN 
END  IF 

FIND    Smordno 
IF    #    =    0 

ERASE 

SET    COLOR    TO    112, 140 

a     22,1    SAY    '    THAT    PART    IS    NOT    ON    THE    FILE    III     ' 

a    22,3    SAY    «    PLEASE   TRY    AGAIN    f 

SET    COLOR    TO    3  0,  1  4 

a    23,1    SAY    CHR  (7) 

SET    TALK    OFF 

STORE    1     TO    z 

DO    WHILE    z<30 

STOiiE    z+1    TO    z 

ENDDO    WHILE 

LOOP 
ENDIF  #  =  0 
STORE 
STORE 
STORE 
STORE 
STORE 


'    TO    mdesc 
1    TO   mdate 

*     TO    mmanfnm 
'    TO   mordna 
'    TO    mpno 
STORE    0    TO    mqnt 
STORE    0-00    TO    mcost 

78 


STORE   desc   TO    mdesc 
STORE    date    TO    mdate 
STORE   manfnm   TO  mmanfnm 
STORE  ordna  TO    mordna 
STORE    pno   TO   mpno 
STORE    ordno  TO   mordno 
STORE    qnt  TO    mqnt 
STORE   cost    TO    mcost 
ERASE 

§    2,1    SAY    'DATA   OF    THE   RECORD    • 
5)    2,60    SAY    DATE() 

3    6,1    SAY    'ORDER    NUMBER  :' 

SET    COLOR    TO    20, 10 
a)   6  ,20    SAY   +    I  (mordno) 
SET    COLOR    TO    30,  14 
a)    7,1     SAY    'DESCRIPTION 
a)    8,  1    SAY    'DATE 
a)    9,1     SAY    'SUPPLIERS     NAME 
5)    10,  1    SAY    'ORDER    NAME 
3    11,1    SAY    'PART    NOMBER 
a)    12,  1    SAY    'QUANTITY 
a)    13,1    SAY    'COST 
a)    18,20    SAY    'PLEASE    BE    PATIENT..-.' 
DELETE 
PACK 
ENDDO    WHILE 


•  i 


♦mdesc 
♦mdate 
♦mmanfnm 

♦mordna 

♦  mpno 

+  STR  (mgnt, 5) 

+  STR  (mcost  ,8) 


****************   Deusaqa-prq    ************************** 

*  AUTHOR       :     KCNDYLOPOULOS       HAEALABOS 

*  DATE  :     10-23-85 

*  PURPOSE    :     THIS    PROGRAM    DELETES    INVOICES    FROM    THE    SYSTEM 
***********  ********************************************* 

SET    COLOR    TO    30,22 
SET    TALK   OFF 
SET    ESCAPE    OFF 
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DO    WHILE   t 

SELECT    PRIMARY 

USE    usage   INDEX    usage 

ERASE 

STORE    '  •    TO    minvno 

3    2,1    SAY    'DELETING    FROM    OSAGE    FILE    • 

3    2, 60    SAY    DATE() 

a)    4,20    SAY    •    ENTER   INVOICE    NUMBER    '     GET    minvno 

a)    23,1    SAY    ■     ENTER    A    BLANK    TO    EXIT    TO    DELMENU    ' 

READ 

IF    $  (minvno,  1, 1)    =    •     ■ 

RETURN 
ENDIF 

FIND    Sminvno 
IF    #    =    0 

ERASE 

SET    COLOR    TO    1  12,  140 

3     22,1    SAY    ■     THAT    PART    IS    NOT    ON    THE    FILE    ill     • 

a)    22,3    SAY     '    PLEASE   TRY    AGAIN    ' 

SET    COLOR    TO    30,14 

a)    23,1    SAY    CHR  (7) 

SET    TALK    OFF 

STCF.E    1    TO    z 

DO    WHILE    z<30 

STORE    z+1    TO    z 

SNDDO    WHILE 

LOOP 
ENDIF  #  =  0 
STORE 
STORE 
ST3RE 
STORE 
STORE 


•    TO    mdesc 

•  TO   mdate 

•  TO    muname 
•     TO    muaddr 

'    TO    mpno 


STORE    0    TO    mqnt 
STORE    0.00    TO    mcost 
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STORE   desc   TO    mdesc 

STORE   date   TO    mdate 

STORE   unaie  TO   muname 

ST3RE   invno   TO    minvno 

STORE    pno   TO   mpno 

STORE  uaddr   TO    muaddr 

STORE    gut   TO    mqnt 

STORE    cost    TO    mcost 

ERASE 

a    2,1    SAY    'DATA    OF    THE    RECORD     ■ 

3   2,60    SAY    DATE() 

a    6,1    SAY    'INVOICE    NUMBER 

SET    COLOR    TO    20, 10 

a)   6,20    SAY    +    1  (minvno) 

SET    CCLOR    TO    30, 14 

a    7,1    SAY    'DESCRIPTION 

3    8, 1    SAY    'DATE 

5)    9,  1     SAY    'USER    NAME 

5)    10,1    SAY    'USER    ADDRESS 

a    1 1 ,  1    SAY    'PART    NUMBER 

a    12,  1    SAY    'QNT 

a    13,  1    SAY    'COST 

a    18,20    SAY    'PLEASE    BE    PATIENT ' 

DELETE 
PACK 
ENDDO    WHILE 


+mdesc 
♦mdate 
♦muname 

♦muadir 

+  m  pn  o 

+  STR  (mqnt, 5) 

+STR  (mcost  ,8) 


*****************   Dearstr.prg    **************************** 

*  ADTHOE  :     KONDYLOPOULOS       HARALABOS 

*  DATE  :     10-25-85 

*  PURPOSE       :     THIS    PROGRAM    DELETES    A RPL ANE_S TO  RES     FROM 

*  :     THE    SYSTEM 

***************  ******************************************** 

SET    COLOR    TO     30,22 
SET    ESCAPE    OFF 


SET    TALK   OFF 

ERASE 

DO    WHILE   t 

ERASE 

STORE    '  ■     TO    marstrna 

3)    2,1    SAY    'DELETING    FROM    AIRPL ANE_STOR ES    FILE    ' 

3   2,60    SAY    DATE() 

a)    4,20    SAY    '     ENTER    AIRPLSTORE_  NAME    »    GET    larstrna 

S   23,1    SAY     ■    ENTER    A    ELANK    TO    EXIT    TO    DELMENU    ■ 

READ 

If    $  (marstrna, 1, 1 )    =    *    ■ 

RETURN 
ENDIF 

SELECT    PRIMARY 
USE    arstores   INDEX  arstores 
FIND    Smarstrna 
IF    #    =   0 

SET    COLOR    TO     1 12, 140 

3    22,1    SAY    •     THAT    PART    IS    NOT    ON    THE    FILE    111     » 

3     22,3    SAY     •    PLEASE    TRY    AGAIN    ' 

SET    COLOR    TO    30,14 

5)     23,  1    SAY    CHR  (7) 

SET    TALK    OFF 

STORE    1     TO    z 

DO    WHILE    z<30 

STORE    Z  +  1    TO   z 
ENDDO    WHILE 
LOCP 
ENDIF    #    =    0 
ERASE 

DO    WHILE       .NOT-     EOF 
IF    arstrna   =    marstrna 

5)    3,  1    SAY    'DELETION   OF     ' 

SET    COLOR    TO    20 , 1 0 

3    3,14    SAY    ♦     ! (macstrna) 


SET    COLOR    TO    30 , 1 4 

a    4,  1    SAY    i************i 

STORE    •  ■    TO    mdesc 

STORE    •  *    TO    maslfno 

STORE    •  •    TO    marstrna 

STORE    •  •    TO    mpno 

STORE   0    TO   mqoh 

STORE   0.00    TO    mcost 

ERASE 

STORE   desc   TO    mdesc 

STORE   arplt   TO  marplt 

STORE   aslfno    TO    maslfno 

STORE   arstrna   TO    marstrna 

STORE    pno    TO    mpno 

STORE   goh    TO    mqoh 

STORE   cost    TO    mcost 

ERASE 

3    2,1    SAY    'DATA    OF    THE    RECORD    ■ 

9  3,1    SAY    'DELETION    OF     • 

SET    COLOR    TO    20, 10 

a  3,14    SAY   *■    !  (marstrna) 

SET    COLOR    TO    30,  14 

3    2,60    SAY    DATE() 

S    4,1    SAY    •************' 

3    6,1    SAY     • ARPL_STCRE_NAME 

a    7,1    SAY    'DESCRIPTION 

3    8,1    SAY     'AIRPLANE    TYPE 

a    9,1    SAY    'SHELF     NUMBER 

a    10,1    SAY    'PART     NUMBER 

a    1 1,1    SAY    ' QOH 

a    12,1     SAY    ' COST 

a    18,20    SAY    'PLEASE    BE    PATIENT 

DELETE 

SKIP 

LCOP 


1 

♦marstrna 

1 

♦mdesc 

1 

♦marplt 

t 

♦maslfno 

.  1 

♦  mpno 

.  t 

+  5TR  (mqoh, 5) 

.  1 

♦  STR  (mcost  ,8) 

ENDIF 
SKIP 
END  DO    WHILE 
PACK 
ENDDO    WHILE    t 


*****************   Dewstr. prg    **************************** 


*  AUTHOR 

*  DATE 

*  PURPOSE 
* 


HARALABOS 


KONDYLOPOULOS 

10-28-85 

THIS    PROGRAM    DELETES    WEAPON    STORES    FROM 

THE    SYSTEM 
********************************************************** 

SET    COLOR    TO    30,22 

SET    ESCAPE    OFF 

SET    TALK   OFF 

ERASE 

DO    WHILE   t 

ERASE 

STORE    •  '     TO    mwstrna 

3    2,1    SAY    'DELETING    FROM    WE APO N_STO RES    FILE    ' 

3)    2,  60    SAY    DATE() 

9    a, 20    SAY     •     ENTER    W EAPON_STOR E_NAME    '     GET    mwstrna 

3    23,1    SAY    •     ENTER    A    BLANK    TO    EXIT    TO    DELMENU    • 

READ 

IF    $ (mwstrna, 1)    =    •     ' 

RETURN 
ENDIF 

SELECI    PRIMARY 
USE    wstores   INDEX    wstores 
FIND    Smwstrna 
IF    #    =    0 

SET    COLOR    TO     1 12,  140 

Q    22,  1    SAY     '     THAT     PART    IS    NOT    ON    THE    FILE    •!!     ' 

j)    22,3    SAY     ■     PLEASE    TRY    AGAIN    ' 

SET    COLOR    TO    3  0, 1 4 
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3  23,  1  SAY  CUR  (7) 

SET  TALK  OFF 
STORE  1  TO  Z 
DO  WHILE  z<30 

STORE  z  +  1  TO  z 
ENDDO  WHILE 
LOCP 
ENDIF  #  =  0 
ERASE 

DO  WHILE   .NOT.  EOF 
IF  wstrna  =  mwstrna 

3  3,  1  SAY  'DELETION  OF  • 

SET  COLOR  TO  20, 10 

a  3,14  SAY  «■  '(mwstrna) 

SET  COLOR  TO  30 ,  1 4 

5)  4,  1  SAY  ************** 

STORE  •  •  TO  mdesc 

STORE  •       •  TO  mslfno 

STORE  •  f  TO  mwstrna 

STORE  •       '  TO  mpno 

STORE  0  TO  mqoh 

STORE  0.00  TO  mcost 

ERASE 

STORE    desc   TO    mdesc 

STORE   arplt   TO  marplt 

STORE   wslfno    TO    mwslfno 

STORE   wstrna    TO    mwstrna 

STORE    pno    TO    mpno 

SIORE   qoh    TO    mqoh 

STORE   cost   TO    mcost 

ERASE 

a    2,1    SAY    'DATA    OF    THE    RECORD    * 

3    3,1    SAY    'DELETION    OF     ' 

SIT    COLOR    TO     20,  10 

a   3  ,14    SAY    *■    !  (mwstrna) 
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SET    COLOR    TO     30,  14 

S    2,60    SAY    DATE() 

a    4,  1    SAY    t************i 

5)    6,1    SAY    ' ARPL_STCRE_NAME 
3    7,1    SAY    'DESCRIPTION 
3    8,1    SAY    'AIRPLANE    TYPE 
a    9,1    SAY    'SHELF     NUMBER 
a    10,1    SAY    'PART    NUMBER 
3    11,1     SAY    'QOH 
a    12,1    SAY    'COST 
a    18,20    SAY    'PLEASE    BE    PATIENT- 
DELETE 
SKIP 
LCOP 
EN  DIP 
SKIP 
ENDDO    WHILE 
PACK 
ENDDO    WHILE    t 


.  f 

-unwstrna 

•  1 

-t-mdesc 

•  1 

+marplt 

.  1 

♦mwslf no 

•  1 

♦  jipno 

.  1 

+STR  (mqoh, 

5) 

.  f 

+  STR  (mcost 

,8) 

*****************   Dejstr.prg    *************************** 

*  AUTHOR  :     KONDYLOPOULOS    HARALABOS 

*  DATE  :     10-29-85 

*  PURPOSE       :     THIS    PROGRAM    DELETES    JUNK    STORES    FROM 

*  ;     THE   SYSTEM 

*******  ***  *********************************************** 

SET    COLOR    TO     30,22 

SET    ESCAPE    OFF 

SET    TALK    OFF 

ERASE 

DO    WHILE    t 

ERASE 

STORE    •  '     TO    mjuna 

a    2,1    SAY    'DELETING    FROM    JUNK_STORE5    FILE    ' 

a    2,  60    SAY    DATE() 
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5)    4,20    SAY    ■    ENTER   JONK_STORE_  NAME    '    GET    mjuna 

3    23,1    SAY     •     ENTER    A    BLANK    TO    EXIT    TO    DELMENU    • 

READ 

IF    $  (mjuna, 1,1)    =    ■     ■ 

RETURN 
ENDIF 

SELECT    PRIMARY 

USE    junstores   INDEX    junstores 
FIND    Smjuna 
IF    #    =    0 

SET    COLOR    TO     112, 140 

3    22,1    SAY    •    THAT     PART    IS    NOT    ON    THE    FILE    !!!     ' 

3    22,3    SAY    'PLEASE    TRY    &GAIN    ■ 

SET    COLOR    TO    30,1  4 

3    23, 1    SAY    CHR  (7) 

SET    TALK    OFF 

STORE    1     TO    Z 

DO    WHILE    Z<30 

STORE    z*1    TO    z 
ESDDO    WHILE 
LOOP 
ENDIF    #    =    0 
ERASE 

DO    WHILE       .NOT.    EOF 
IF    juna  =    mjuna 

S    3,  1    SAY    'DELETION    OF     • 

SET    COLOR    TO    20,  10 

a    3,  14    SAY    +    !  (mjuna) 

SET    COLOR    TO    30 ,  1 4 

a    4, 1    SAY    »************' 

STORE    '  '     TO    mdesc 

STORE    ■  «    TO    mjslfno 

STORE    ■  •    TO    mjuna 

STORE    •  '    TO    mpno 

STORE    0    TO    mqoh 
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STORE    0.00    TO    mcost 
EJBASE 

STORE   desc  TO    mdesc 
STORE    jslfno    TO    mjslfno 
STORE    juna   TO    mjuna 
STORE   pno    TO    mpno 
STORE    qoh    TO    mgoh 
STORE    cost    TO    mcost 
ERASE 

3    2,1    SAY    'DATA    OF   THE    RECORD    • 
3    3,1    SAY    'DELETION    OF     ' 
SET    COLOR    TO    20, 10 
3    3,  14    SAY    +    I  (mjuna) 
SET    COLOR    TO    30 , 1 4 
S    2,60    SAY    DATE() 
a    4,1    SAY    ************** 
3    6,1    SAY    «ARPL_STORE_NAME 
3    7,1    SAY    'DESCRIPTION 
a    8,1    SAY    'SHELF     NUMBER 
a    9,  1    SAY    'PART    NUMBER 
a    10,1    SAY    'QOH 
a    1  1  ,1     SAY    'COST 

a    18,20    SAY    'PLEASE    BE    PATIENT 
DELETE 
SKIP 
LCOP 
END  IF 
SKIP 
ENDDO     WHILE 
PACK 
ENDDO    WHILE     t 

****************   Deacstc.prg    ****************************** 

*  AUTHOR  :     KONDYLOPOULOS    HABALABOS 

*  DATE  :     10-25-35 


.  t 

♦mjuna 

•  t 

♦mdesc 

.  t 

+  m  j  s  1  f  n  o 

.  t 

♦  mpno 

.  t 

♦  STR  (mqoh, 5) 

•  1 

+  STR  (mcost ,  8) 

NT- 

i 

*  PURPOSE       :     THIS    PROGRAM    DELETES    ACESSORIES    STORES    FROM 

*  :     THE   SYSTEM 

SET    COLOR   TO    30,22 

SET    ESCAPE    OFF 

SET    TALK   OFF 

ERASE 

DO    WHILE   t 

ERASE 

STORE    ■  •     TO    macstrna 

a)    2,1    SAY    'DELETING    FROM    ACCESS_STORES    FILE    « 

3    2,60    SAY    DATE() 

cb   4,20    SAY    '    ENTER   ACCES_STORE_NAME    ■    GET    macstrna 

a)    23,1    SAY    •    ENTER    A    ELANK    TO    EXIT    TO    DELMENU    ' 

READ 

IF    $  (macstrna,  1)    =    ■     • 

RETURN 
ENDIF 

SELECT    PRIMARY 
USE    acstores   INDEX  acstores 
FIND    Smacstrna 
IF    #    =    0 

SET    COLOR    TO     1 12,  140 

a    22,1    SAY     •    THAT    PART    IS    NOT    ON    THE    FILE    !!!     ' 

a>     22,3    SAY     •     PLEASE    TRY    AGAIN    ' 

SET    COLOR    TO    30,1  4 

3)    23,  1    SAY    CHR  (7) 

SET    TALK    OFF 

STORE    1    TO    z 

DO    WHILE    z<30 

STORE    Z+1    TO    Z 
ENCDO    WHILE 
LOCP 
ENDIF    #    =    0 
ERASE 
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DO  WHILE   .NOT.  EOF 
IF  acstrna  =  macstrna 

3  3,1  SAY  'DELETION  OF  ■ 

SET  COLOR  TO  20, 10 

3    3,14    SAY   +    !  (macstrna) 

SET    COLOB    TO    30 , 1 4 

a)    4,  1    SAY    ************** 

STORE    •  '    TO    mdesc 

STORE    '  '    TO    macslfno 

STORE    ■  ■    TO    macstrna 

STORE    •  •    TO    mpno 

STORE    0    TO    mqoh 

STORE    0.00    TO    icost 

ERASE 

STORE    desc   TO    mdesc 

STORE   arplt   TO   marplt 

STORE   acslfno    TO    macslfno 

STORE   acstrna    TO    macstrna 

STORE    pno    TO    mpno 

STORE    goh    TO    mqoh 

STORE   cost    TO    mcost 

ERASE 

3    2,1    SAY    'DATA    OF    THE    RECORD    * 

3   3,  1    SAY    'DELETION    OF     ■ 

SET    COLOR    TO     20 ,  1 0 

a   3,14    SAY   *     !  (macstrna) 

SET    COLOR    TO     30,  14 

3    2  ,60    SAY    DATE() 

a)    4,  1    SAY    ************** 

3    6,1    SAY     ■ ARPL_STCRE_NAME 

3    7,1    SAY    'DESCRIPTION 

3    8,1    SAY    'AIRPLANE    TYPE 

3    9,1     SAY     'SHELF     NUMBER 

S    10,1    SAY    'PART    NUMBER 

a    1 1 ,1    SAY    'yOH 
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.  1 

♦aacstrna 

•  1 

♦mdesc 

.  f 

♦marplt 

•  1 

♦macslfno 

.  1 

♦  mpno 

.  f 

♦  SIR  (mqoh, 5) 

a    12,1    SAY    'COST  :  • 

3    18,20    SAY    'PLEASE    BE    PATIENT- 
DELETE 
SKIP 
LCOP 
EN  DIP 
SKIP 
ENDDO    WHILE 
PACK 
ENDDO    WHILE    t 


+  STR  (mcost  ,8) 


*******************   Modiraenu . prg    ************************** 

*  AUTHOR   :  KCNDYLOPOULOS  HARALABOS 

*  DATE     :  10-20-85 

*  PURPOSE    :     THIS    PROGRAM    ALLOWS    THE    USER    TO    SELECT    A 

*  :     CHOICE    FOR    THE    APPROPRIATE    FILE    MODIFICATION 
**************************************  ********************* 

SELECT    PRIMARY 

SET    COLOR    TO    20,5 

SET    TALK   OFF 

SET    FORMAT    TO    SCREEN 

SET    CONSOLE    ON 

DO    WHILE   t 

CLEAR 

ERASE 

3    1,15    SAY    "******    'AIRPLANE'     PARTS    SYSTEM    «******» 

3   3,1    SAY    ' MODIMENU* 

3    3,60    SAY    DATE() 

a    7,  1     SAY    '    OPTIONS:  » 


a  9,1  SAY  ' 
a  1  1,  1  SAY 
a  13,1  SAY 
3  15,1  SAY 
3  17,1  SAY 
3    9,45    SAY 


0    EXIT   TO    OPERATING    SYSTEM' 

1  MODIFICATION    OF    PARTS' 

2  MODIFICATION    OF    AIRPL_STORES ' 

3  MODIFICATION    OF    WE APON_STORE S ' 

4  MODIFICATION    OF    SUPPLIERS' 

5  MODIFICATT1CN    OF    JUNK    STORES' 
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a  1  1,45  SAY 
a  13,45  SAY 
3  1 5, 45  SAY 
S  17,45  SAY 
3    19,26    SAY 


6  MODIFICATION    OF    ACCES_STORES • 

7  MODIFICATION    OF    ORDERS    ' 

8  MODIFICATION    OF    INVOICE    « 

9  EXIT    TO    MAIN    MENU' 
[  EXIT    TO    DATABASE    ■ 


S    20,1    SAY    «       SELECT    CHOICE       ' 

STORE    ■     ■    TO    choice 

WAIT    TO    choice 

DO    CASE 

CASE    choice   =    '3 ' 

CLEAR 

QUIT 
CASE    choice   =    '  1  • 

DO   mopart 

USE 
CASE    choice  =    •2f 

DO   moarstr 

USE 
CASE    choice   =    •3I 

DO  mowpstr 

USE 
CASE    choice   =    f4 ' 

DO    mosuplr 

USE 
CASE    choice   =    •5' 

DO   mojustr 

USE 
CASE    choice    =    '6  ' 

DO   moacstr 

USE 
CASE    choice   =    ,7I 

DO   raoorder 

USE 
CASE  choice  =  *8 ' 

DO  mousage 
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USE 
CASE    choice   =    "9' 

RETURN 

USE 
CASE    choice  =    •X'    .OB.    choice   =    'x' 

CANCEL 
OTHERWISE 

STORE    1    TO    z 

DO    WHILE    z<5 

SET    COLOR      TO     112,  140 

9    30,5    SAY    "INVALID   CHOICE PLEASE    TRY    AGAIN 

SET    COLOR    TO    30,1 4 

o>    31,  5    SAY    CHR  (7) 
STORE    Z+1    TO    z 

EN  EDO 
ENDCASE 
ENDDO    WHILE    t 

***************    Mopart-prg   ******************************* 

*  AUTHOR      :     KCNDYLOPOULOS       HARALABOS 

*  DATE  :     1  1-2-85 

*  PURPOSE    :     THIS    PROGRAM    MODIFIES    PART    WITH    AUTOMATIC 

*  :     UPDATING    OF    THE    EFFECTED    FILE 
********************************************************** 

SET    ESCAPE    OFF 
SET    COLOR    TO     14,30 
SELECT    PRIMARY 
SET    TALK    OFF 
ERASE 

*a>    8,18    SAY     'PLEASE    BE    PATIENT • 

DO    WHILE   t 

USE   parts   INDEX    parts 

STORE    '  •    TO    mpno 

ERASE 

a)     1,20     SAY     ■     EDITING    OF    A    FILE' 
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a    3,20     SAY     •     ENTEE    PART_NUMBER'     GET    mpno 

a)    20,2     SAY     'ENTER    A    BLANK    TO    EXIT    TO    MODIMENU' 

3    3,50    SAY    DATE{) 

READ 

IF    $(mpno,  1  ,1)='     • 

RETURN 
ENDIF    $  (mpno,1 ,1)=    »     • 
FIND  &mpno 
IF    #=0 

ERASE 

a)    13,17    SAY    •     THIS    RECORD    IS    NOT    IN    THE    FILE' 

STORE    '     '    TO    manswer 

?    'Enter  a    • 

SET    COLOR      TO     120,10 

■?■?       ii     t    y    * " 

SET  COLOR   TO  3D ,  14 

??  ' to  try  again  or  ' 

SET  COLOR  TO  1  12  ,  140 

??  "  •  N  '  " 

SET  COLOR  TO  30,  14 

??  'if  not  and  then  hit  return  ' 

SET  COLOR  TO  10,  20 
ACCEPT  1C  manswer 

SET  COLOR  TO  30,  14 

IF  manswer   =  'N'  .OR.  manswer  =  'n' 
RETURN 

ELSE 

LOOP 

ENDIF 
ENDIF 
ERASE 

a)     1,20     SAY    'EDITING    OF    A    FILE' 
3    3,50     SAY    DATE() 

STORE    *  '     TO    mdesc 

STORE    '  •     TO    marplt 
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STORE 
STORE 
STORE 
STORE 
STORE 


•  TO    mmanfnm 
1    TO    marstrna 

*    TO   mjuna 

'    TO    mwstrna 

•  TO    macstrna 
STORE    0    TO    mqoh 

STORE    0.00    TO    mcost 

ERASE 

STORE    desc    TO    mdesc 

STORE    arplt   TO    marplt 

STORE    manfnm   TO    mmanfnm 

STORE    arstrna    TO    marstrna 

STORE    wstrna  TO   mwstrna 

STORE    juna    TO    mjuna 

STORE    acstrna    TO   macstrna 

STORE    qoh    TO    mqoh 

STORE    cost    TO    mcost 

*    Edit    the    new   values 

3    8,1    SAY    'PART    NUMBER    :'    +mpno 

3    9,1     SAY    'DESCRIPTION    •    GET    mdesc 


•    GET  marplt 

'    GET  mmanfnm 

'    GET  mqoh 

1    GET  mcost 


3     10,1     SAY    'ARPLT 
5)     11,1     SAY     'MANFNAME 
5)     12,1     SAY    'QOH 
a)     13,1     SAY    'COST 
DO    CASE 

CASE   marstrna    <>    •  • 

SET   COLOR    TO     112,  140 

a)    14,1     SAY    'ARPLPA_STO_#«    GET    marstrna 

CASE   mwstrna   <>    '  ' 

SET   COLOE    TO    20,  10 

a)     15,1     SAY    'WEAPON_STO_#'    GET    mwstrna 

CASE   macstrna   <>    '  ' 

SET   COLOR    TO    112,  140 

a)     16,1     SAY    'ACCES_STOR_#'    GET    macstrna 

CASE   mjuna    <>    •  ' 
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SET   COLOR    TO    20,  10 

9    17,1     SAY    ,JUNK_STORE_#«    SET    mjuna 
ENDCASE 

SET   COLOE    TO    30,14 
READ 

*    Replacment  of    the    values 

REPLACE    desc   WITH    mdesc,    arplt    WITH    marplt 
REPLACE    wstrna   WITH   mwstrna,    cost    WITH    mcost 
REPLACE    juna    WITH    mjuna,    acstrna    WITH    macstrna 
REPLACE    qoh    WITH    mqoh,    arstrna    WITH   marstrna 
CASE        arstrna  <>    ■  • 

SELECT    SECONDARY 
OSE  arstores  INDEX   arstores 
FIND    &mpno 

STORE    '  •    TO    maslfno 

STORE    aslfno   TO    maslfno 
ERASE 

a)    6,1     SAY    '  ARPL_STORE_NAME    :•     ♦    marstrna 
9    7,1    SAY    «PART_NUMBEE  :•     +    mpno 

o>    8,1    SAY    'DESCRIPTION  :«     +    mdesc 

a)    9,1    SAY    'ARPL_TYPE  :'     ♦    marplt 

a)     10,1     SAY    'QUANT    3N    HAND         :'     ♦    STR(mgoh,5) 
a)     11,1     SAY     'COST  :»     +    STR(mcost,8) 

SET   COLOR    TO    112,140 

a)     12,1    SAY    •AIRPL_SHELF_N0MB: «     GET    maslfno 
SET   COLOE    TO    30,14 
READ 

REPLACE    arstrna    WITH    marstrna,    pno   WITH   mpno 
REPLACE    arplt    WITH    marplt,    cost    WITH    mcost 
REPLACE      qoh    WITH    mqoh,     aslfno    WITH    maslfno 
REPLACE    desc    WITH    mdesc 
CLEAR 
LOOP 
CASE    wstrna    <>    ■  * 

SELECT     SECONDARY 
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+    mwstrna 
+   mpno 
+    mdesc 
+   mar  pit 


USE  wstores   INDEX    wstores 
FIND   Smpno 

STCRE    ■  •    TO    mwslfno 

STORE    wslfno   TO    mwslfno 
ERASE 

a    6,  1     SAY    •  WEAPON_STO_NAME    :' 
3    7,1     SAY    'PART    NUMBER 
3    8,1    SAY    'DESCRIPTION 
3     9,1     SAY    'ARPLN_TYPE 
3     10,1     SAY    'QUANTITY    ON    HAND:'     +    STR  (mgohr  5) 
3     11,1    SAY    'COST  :'     +    STR(mcost,8) 

SET   COLCE    TO    112,140 

3     12,1     SAY    'WEAPON_SHELF_#      :'    GET   mwslfno 
SET  COLCE    TO   30,14 
READ 

REPLACE    wstrna  WITH   mwstrna,    pno    WITH    mpno 
REPLACE    arplt    WITH    marplt,    wslfno    WITH    mwslfno 
REPLACE    cost    WITH    mcost,    cost    WITH    mcost 
REFLACEdesc    WITH    mdesc 
CLEAR 
LOCP 
CASE    juna    <>    '  • 

SELECT    SECONDARY 
USE   junstores   INDEX    junstores 
FIND    Smpno 

STORE    •  '    TO    mjslfno 

STCRE    jslfno   TO    mjslfno 
ERASE 

3    6,1     SAY    'JUNSTORES 
a    7,  1    SAY    'PART    NUMBER 
a    8,1     SAY    'DESCRIPTION 
a     9,1     SAY    'QUAN    ON    HAND 
a     10,1     SAY     'COST 
SEI   COLOR    TO    112,140 

a     11,1     SAY     'JUANK    SHELF     NUM:'    GET    mjslfno 
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*■    mjuna 


mpno 

mdesc 

STR  (mgoh,5) 


:'    ♦    STR(mcost,8) 


SET  COLOR    TO   30,14 
READ 

REPLACE    juna    WITH   mjuna,    pno   WITH    mpno 
REPLACE    jslfao    WITH    mjslfno,    qoh    WITH    mqoh 
REPLACE    desc   WITH    mdesc,    cost    WITH   mcost 
CLEAR 
LOOP 
CASE   iacstrna  <>    ■  ■ 

SELECT    SECONDARY 
USE  acstores  INDEX   acstores 
FIND    Smpno 

STORE    f  •    TO    macslfno 

STORE    acslfno   TO    macslfno 
ERASE 

a)    6,1     SAY    'ACCESS    STORES  :•     ♦    iacstrna 

a    7,1    SAY    'PART    NUMBER  :'    ♦    mpno 

3    8,1     SAY    'DESCRIPTION  :'     ♦    mdesc 

S    9,1    SAY    'ARPL    TYPE  :•    +    marplt 

a     10,1     SAY    'QUANT    ON    HAND  :'     +    STR(mqoh,5) 

a    11,1     SAY    'COST  :'    +    STR(mcost,8) 

SET   COLOR    TO    112,  1U  0 

a    12,1     SAY    'ACCESS    SHELF    #  :'     GET    macslfno 

SET   COLOR    TO    30, 14 
READ 

REPLACE    acstrna    WITH    macstrna,    pno    WITH    mpno 
REPLACE    acslfno    WITH    macslfno,     arplt   WITH    marplt 
REPLACE    cost    WITH    mcost 

REPLACE    desc    WITH    mdesc,    qoh    WITH    mqoh 
CLEAR 
LOCP 
OTHERWISE 

a     18,10     SAY     '     THIS    PART     IS    NOI     IN    THE     INVENTORY    ill     ' 
CLEAR 
LOCP 
ENDCASE 
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END DO    WHILE    t 


********************   Mosuplr.prg   ************************ 

*  AUTHOB         :     KONDYLOPOULOS       HARALABOS 

*  DATE  :     11-2-85 

*  PURPOSE       :     THIS    PROGRAM    MODIFIES    THE    SUPPLIER'S    DATA 
********************************************************* 

SET    COLOR    TO     14,30 

SET    ESCAPE    OFF 

SELECT    PRIMARY 

SET    TALK   OFF 

ERASE 

DO    WHILE   t 

USE  suppliers   INDEX    suppliers 

STORE    '  •     TO    mmanfnm 

ERASE 

S     1,20     SAY    ■     EDITING    OF    A    FILE' 

a    3,20    SAY    ■    ENTER   SUPPLIER    NAME    'GET    amanfnm 

3    20,2     SAY     'ENTER    A    BLANK   TO    EXIT    TO    MODIMENU* 

S    3,60    SAY    DATE<) 

READ 

STORE    !  (mmanfnm)     T3    mmanfnm 

IF    $(mmanfnm, 1 ,1) =*     • 

RETURN 
ENDIF    $ (mmanfnm, 1,1) =   ■     ' 
FIND   S mmanfnm 
IF    #=0 
ERASE 

a    13,17    SAY    '     THIS    RECORD    IS    NOT    IN    THE    FILE' 
STORE    ■     ■    TO   manswer 
?    ' Enter   a    ' 
SET    COLOR      TO    120,10 
■?■?         ti     t     y     t  it 

SET    COLOR      TO    30, 14 
??    'tc   try    again    or    • 
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SET    COLOE    TO     112, 140 
??     "     '     N    '  " 

SET    COL  OB    TO    30,  14 
11    'if   not   and   then    hit   return    ' 
SET    COLOR    TO    10,20 
ACCEPT    TO   manswer 

SET    COLOR    TO    30,  14 

IF    manswer      =    'N'    .OR.    manswer    =    'q' 

RETURN 
ELSE 

LOOP 
ENDIF 
ENDIF 
ERASE 

3     1,20    SAY    'EDITING    OF    A    FILE1 
a)    3,50    SAY    DATE() 
STORE 
STORE 

•    TO   mcountry 
1    TO    mar  pit 
'    TO   mdel:time 

'     TO    m pro duct 


'     TO   mmanfadr 
1    TO   mzip:co 


STORE 

STORE 

STORE 

STORE 

ERASE 

STORE    manfnm   TO    mmanfnm 

STORE    manfadr    TO    mmanfadr 

STORE    zip:co   TO    mzip:co 

STORE    country    TO    mcountry 

STORE    arplt   TO    marplt 

STORE    del:  time   TO   mdel:  time 

STORE    product    TO    mproduct 

*    Edit    the    new   values 

a     8,1     SAY    'SUPPLIER     NAME:' 

SEI   COLOR    TO    20,10 

d)    8, 17    SAY    !  (+    mmanfnm) 

SET   COLOR    TO    30,  14 
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3    9,1    SAY    'SUPPLIER    ADDRESS'    GET    mmanfadr 


GET    mzip:co 
GET    mcountry 
GET    marplt 
GET    mdel:time 
GET    mproduct 


3     10,1     SAY    «ZIP:CODE 
3     11,1     SAY     'COUNTRY 
3     12,1     SAY     'ARPLANE    TYPE 
3     13,1     SAY    'DELIVERY    TIME 
3    14,1     SAY    'PRODUCT 
READ 

*    Replacment  of    tha    values 

REPLACE    manfnm   WITH    mmanfnm,    manfadr   WITH    mmanfadr 
REPLACE    zip:co   WITH    mzip:co,    arplt  KITH   marplt 
REPLACE    product   WITH    mproduct,    country   WITH    mcountry 
REPLACE    del:time    WITH  mdel:time 
END  DO    WHILE    t 


*****************  Mousage.prg    ************************* 

*  AUTHOR   :  KCNDYLOPOULOS  HARALABOS 

*  DATE     ;  1  1-3-85 

*  PURPOSE    :     THIS    PROGRAM    MODIFIES    THE    INVOICE    DATA 
*************************  ****************************** 

SET    COLOR    TO     14,30 

SET    ESCAPE    OFF 

SELECT    PRIMARY 

SET    TALK   OFF 

ERASE 

DO    WHILE   t 

USE   usage   INDEX    usage 

STORE    '  '    TO    minvno 

ERASE 

3     1,20     SAY    '     EDITING    OF    A    FILE' 

3    3,20    SAY    •    ENTER    INVOICE_NUMBER •    GET    minvno 

S    20,2     SAY     'ENTER    A    BLANK   TO    EXIT    TO    MODIMENU' 

a    3,50     SAY    DATE() 

READ 

IF    $  (minvno,  1,1)='    ' 

RETURN 
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ENDIF    $  (minvno,  1,  1)  =    •     • 
FIND   & minvno 
IF    #=0 

ERASE 

3    13,17    SAY    •     THIS    RECORD    IS    NOT    IN    THE    FILE1 

STORE    f     •    TO    manswer 

?    ' Enter   a    • 

SET    COLOR      TO     120,10 

■?1       ii     i     y    '  " 

SET  CCLOR   TO  33  ,  14 
??  ' to  try  again  or  ' 
SET  CCLOR  TO  1 12, 140 
??  "  ■  N  '  " 

SET  CCLOR  TO  30,  14 
??  f if  not  and  then  hit  return  ■ 
SET  COLOR  TO  10,  20 
ACCEPT  TC  manswer 

SET  CCLCR  TO  30,  14 

IF  manswer   =  *N*  .OR.  manswer  =  f 

RETURN 
ELSE 

LOOP 
ENDIF 
ENDIF 
ERASE 


n 


3     1,20     SAY    'EDITING    OF    A    FILE' 
o)    3,50     SAY    DATE() 


STORE 

STORE 

STORE 

STORE 

STCRE 

STORE    0    TO    mqnt 

STORE    0.00    TO    mcost 

ERASE 


•    TO    mdesc 
TO    rapno 

1    TO   muname 

'    TO   mdate 
•    TO    muaddr 


io; 


STORE   invno  TO    minvno 
STORE    desc    TO    mdesc 
STORE    pno   TO   mpno 
STORE    date    TO    mdate 
STORE    uname   TO    muname 
STORE    uaddr   TO    muaddr 
STORE    qnt   TO  mgnt 
STORE    cost    TO    mcost 

*  Edit    the    new    values 
3     8,1     SAY    'INVOICE    NUMBER    :» 
SET   COLOR    TO   20,10 
3    8r  17    SAY    !  (+    minvno) 
SET   COLOR   TO    30,14 
9     9,1     SAY    'DESCRIPTION     • 
o>     10,1     SAY     'DATE 
3     11,1     SAY    'USER    N&ME 
a)     12,1     SAY     'USER    ADDRESS 
a)     13,1     SAY    'PART    NUMBER 
a)     14,1     SAY     '^NT 
d     15,1     SAY    'COST 
READ 

*  Replacment   of    tha    values 

REPLACE    desc   WITH    mdesc,    date    WITH   mdate 
REPLACE    pno   WITH    mpno,    invno   WITH    minvno 
REPLACE    qnt   WITH    mqnt,    uaddr    WITH    muaddr 
REPLACEuname   WITH    muname,    cost    WITH    mcost 
END  DO    WHILE     t 


GET   mdesc 

GET  mdate 

GET  muname 

GET  muaddr 

GET  mpno 

GET  mqnt 

GET  mcost 


********************    Moorder.prg    ************************ 

*  AUTHOR       :     KONDYLOPOULOS       HARALABOS 

*  DATE  :     1 1-3-85 

*  PURPOSE  :  THIS  PROGRAM  MODIFIES  THE  ORDERS  OF  THE 

*  :  PARTS  ON  THE  ORDER  FILE 

************  ********************************************** 

SET    COLCR    TO     14,30 

103 


SET    ESCAPE    OFF 

SELECT    PRIMARY 

SET    TALK   OFF 

ERASE 

*  Create  a    continue  loop 

DO    WHILE  t 

USE  orders    INDEX    orders 

STORE    '  '    TO   mordno 

ERASE 

a)  1,20  SAY  ■  EDITING  OF  A  FILE' 

a)  3,20  SAY  •  ENTER  ORDER  NUMBER'  GET  mordno 

a)  20,2  SAY  'ENTER  A  BLANK  TO  EXIT  TO  MODIMENU' 

a)  3,50  SAY  DATE() 

READ 

IF  $(mordno,1,1)  =  «  • 

RETURN 
ENDIF    $  (mordno, 1 ,1)  =    ■     ' 
FIND   Smordno 
IF    #=0 
ERASE 

a)    13,17    SAY    •     THIS    RECORD    IS    NOT    IN    THE    FILE* 
STORE    '     ■    TO    manswer 
?    •  E  n  te  r  a    • 
SET    COLOR      TO     120,10 
■p-p       ii     «     y    *  " 

SET    COLOR      TO    33  ,  14 
??    ' to   try    again    or    ' 
SET    CCLCR    TO    1 12 , 140 
??     "     '     N    ' " 
SET    COLOR    TO    30,  14 
??    'if   not    and   then    hit   return    * 
SET    COLOR    TO     10,  20 
ACCEPT    TO   manswer 

SET    CCLCR    TO    30,  14 

IF    manswer      =    'N'    .OR.    manswer    =    'n' 
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RETURN 

ELSE 

LOCP 

ENDIF 
ENDIF 
ERASE 
a     1,20    SAY    'EDITING    OF    A    FILE' 
a    3,55    SAY    DATE    () 
STORE    '  •     10   mdesc 

STORE    '  •    TO   mpno 

STORE    '  '    TO    mmanfnm 

STCRE    ■  '    TO  mdate 

STORE    '  •    TO   mordna 

STORE    0    TO    mqnt 
STORE    0.00    TO    mcost 
ERASE 

STORE    desc    TO    mdesc 
STORE    pno  TO   mpno 
STORE    manfnm    TO    mmanfnm 
STCRE    date    TO   mdate 
STORE    ordna  TO    mordna 
STORE    qnt   TO   mqnt 
STORE    cost    TO    mcost 
3    8,1     SAY    'CEDER    NUMBER     :' 
SET   COLOR    TO    20,  10 
a    8,17    SAY    !  (+    morino) 
SET   COLOR    TO    30,  14 
3     9,1     SAY    'DESCRIPTION 
a     10,1     SAY     'DATE 
a     11,1     SAY     «MANFACr_NAME 
a     12,1     SAY    'ORDER    NAME 
a     13,1     SAY     'PART    NUMBER 
a     14,1     SAY     »QUAN_ON_HAND 
a     15,1     SAY     'COST 
READ 


'    GET    mdesc 

GET  mdate 

GET  mmanfnm 

GET  mordna 

GET  mpno 

GET  mqnt 

GET  mcost 
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*    Replacment  of    tha    values 
REPLACE    desc   WITH    mdesc,    date   WITH    mdate 
REPLACE    pno   WITH    mpno,    ordno   WITH    mordno 
REPLACE    qnt    WITH    mqnt,    ordna   WITH    mordna 
REPLACE    manfnm   WITH    mmanfnm,    cost    WITH    mcost 
ENDDO    WHILE    t 


***************    Repomenu. prg    ***************************** 

*  AUTHOR    :  KONDYLOPO0L0S  HARALABOS 

*  DATE      :  10-6-85 

*  PURPOSE   :  THIS  PROGRAM  SELECTS  THE  REQUIRED  REPORT 

*  :  OPERATION  OF  THE  SYSTEM  BY  USING  MENU  DRIVEN 

*  :  CHOICE 
*********************************************************** 

SET    ESCAPE    OFF 

SELECT    PRIMARY 

SET    COLOR    TO    20 , 5 

SET    TALK   OFF 

SET    FORMAT    TO    SCREEN 

SET    CONSOLE    CN 

DO    WHILE    t 

CLEAR 

ERASE 

3    1,15    SAY    "****     'AIRPLANE1     PARTS   SYSTEM     •******•• 

3    3,  1     SAY    'REPOMENU' 

a)    3,  60    SAY    DATE() 

5)    7,  1     SAY    '    OPTIONS:  ■ 

0    EXIT    TO    OPERATING    SYSTEM' 

1  LISTING    OF    ALL    THE    INVENTORY' 

2  LISTING    OF    ALL    THE    SUPPLIERS' 

3  LISTING    OF    ALL    THE    ORDERS' 

4  LISTING    OF    ALL    THE    INVOICES' 

5  LISTING    OF    ALL    THE    AR_STR    PARTS' 

6  LISTING    OF    ALL    THE    JU_STR    PARTS' 
7     LISTING    OF    ALL    THE    WE    STR    PARTS' 


a)  9,1     SAY    ' 

3  11,1    SAY 

3  13,1    SAY 

a)  15,1    SAY 

a)  17,  1    SAY 

3  1  9  ,  1    SAY 

a)  9,3  8    SAY 

a  1 1 ,38    SAY 
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5)    13,38    SAY    ■  8    LISTINS    OF    ALL    THE    AC_STR    PARTS' 

3    15,38    SAY    "  9    EXIT    TO    DATABASE' 

3    17,38    SAY    ■  X    EXIT    TO    MAIN    MENU' 

a   2  0,1    SAY    ■       SELECT    CHOICE       • 

STORE    ■     ■    TO    choice 

WAIT    10    choice 

DO    CASE 

CASE    choice   =    'D* 

CLEAR 

QUIT 
CASE    choice    =    ■  1  • 

DO    repart 

USE 
CASE    choice   =    »2' 

DO   resuplr 

USE 
CASE    choice   =    «3« 

DO  reorder 

USE 
CASE    choice   =    »4  « 

DO  reusage 

USE 
CASE    choice   =    '5' 

DO   rearstr 

USE 
CASE    choice   =    f5  » 

DO  rejstr 

USE 
CASE    choice    =    '7' 

DO   rewstr 

USE 
CASE    choice   =    '8' 

DO   reacstr 

USE 
CASE    choice   =    '91 
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CANCEL 
CASE    choice   =    'X'     .OR-    choice    = 

RETURN 

USE 
OTHERWISE 

STORE    1    TO    z 

DO    WHILE    Z<10 

3    30,5    SAY    "    INVALID    CHOICE.. 

3)    31  ,  5    SAY    CHR  (7) 
STORE    Z+1    TO   z 

EN  EDO 
ENDCASE 
END  DO    WHILE    t 


.     PLEASE    TRY    A3AIN    " 


****************  Repart.prg    ***************************** 

*  AUTHOR         :     KONDYLOPOULOS       HABALABOS 

*  DATE  :     11-12-85 

*  PURPOSE       :     THIS    PROGRAM    LISTS   THE    INVENTORY    OF    THE    ALL 

*  :     PARTS    OF    THE    SYSTEM 
********************************************************** 

SET    PRINT    OFF 

SET    ESCAPE    OFF 

SET    COLOR    TO     30,  14 

SET    TALK   OFF 

SET    ALTERNATE    TO    repart.txt 

SET    ALTERNATE    ON 

ERASE 

3    2r18     SAY    <i********o    INVENTORY    LISTING    «**********" 

SET    COLOR    TO     20 ,  10 

S    2,60     SAY    DATE  () 

SET    COLOR    TO    30,  14 

USE    PARTS 

a    10,18    SAY     'INDEXING PLEASE    BE    PATIENT' 

a    16,18    SAY     'IF    YOU    WANT     TO    CANCEL.     PLEASE    HIT    <ESCAPE>     ' 
STORE    t    TO    flag 
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DO   WHILE    flag 
ERASE 

STORE    ■    •     TO    mquery 

ACCEPT    "    PRINTED    INVENTORY    ?    Y/N    "   TO    mguery 
ERASE 

IF  mguery   =    *Y*.OR.    mquery  =    •y1 
SET    PRINT    ON 
STORE    1    TO    c 
DO     WHILE   C<5 

SET    COLOR    TO    20,  10 
SET    PRINT    ON 

3    12,20    SAY    'SET    PRINTER    ON    PLEASE1 
9    12,50    SAY   CHR  (7) 
STORE    C+ 1    TO    c 
SET    COLOR    TO    30 ,  1 4 
ENDDO    WHILE 
ELSE 

SET    PRINT    OFF 
ENDIF 

STORE    t    TO   xflag 
DC   WHILE    xflag 
ERASE 

SET    COLOR    TO     112,140 

3     11,15    SAY    •     IF    YOU    WANT    TO    FREEZE    THE    SCREEN' 
9    12,15    SAY    •     DURING    THE    LISTING,     HIT    CTRL  NUtf_« 

a    12,15    SAY    '    _LOCK    TO   CONTINUE,    PRESS    ANY    KEY     ■ 
SET    COLOR    TO    30,  14 

a    1,5    SAY    *********     REPORT     MENU    ********* 
SET    COLOR    TO    20, 10 
a)    3,15    SAY    '  ARPLANE    TYPE    MENU* 
a    3,60    SAY    DATE     () 
SET    COLOR    TO    30, 14 
a    4,  1    SAY    ■  OPTIONS     ■ 
a    5,  1    SAY    •  0         F-104' 

S    6,  1    SAY    '  1  F-1.     • 
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2 

F-102' 

3 

C-130' 

4 

F-4       » 

5 

F-5       ' 

6 

F-16    ' 

7 

C-47    * 

8 

F-18    • 

9 

PRINT    YOOfi    CHOICE    ■ 

X 

EXIT    10    REPOMENO    ' 

3    7,1    SAY     ' 

9    8,1    SAY    ■ 

a    9,1    SAY    ■ 

a    5,30    SAY    ■ 

a>    6,30    SAY    • 

a    7,30    SAY    ' 

a    8,30    SAY    ' 

a    9,30    SAY    ' 

a    10,15    SAY    • 

S    17,1    SAY    ' OPTION: « 

STOfiE    '     '    TO    Choice 

WAIT  TO  choice 

ERASE 

DO    CASE 

CASE   choice   =    «0  ■ 

SET    COLOR    TO     20,10 

3    14,30    SAY    '     PARTS    FOR    F-10  4    ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    ■ F-104' 
CASE   choice   =    *  1 ' 

SET    COLOR    TO    20,10 

a    14,30    SAY    'PARTS    OF    F-1' 

SET    COLOR    TO    30,14 

LIST   FOR    arplt    =    • F-  1 .  • 
CASE   choice   =    • 2 • 

SET    COLOR     TO    20,10 

a    14,30    SAY    ■     PARTS    OF    F-102    ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    '  F-102' 
CASE   choice   =    •  3  ■ 

SET    COLCR    TO    20,10 

a    14,30    SAY    'PARTS    OF    C-130' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt    =    'C-130' 
CASE    choice    =    '4 ' 
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SET    COLOR    TO    20,10 

3    14,30    SAY    •     PAfiTS    OF    F-4    ■ 

SET    COLOR    TO    30,14 

LIST   FOR    arplt   =    'F-4' 
CASE   choice   =    '5' 

SET    COLOR    TO    20,10 

a    14,30    SAY    «     PARTS    FOR    F-5    ■ 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    • F- 5    ■ 
CASE   choice   =    «6  ' 

SET    COLOR     TO    20,10 

3    14,30    SAY    ■     PARTS    FOR    F-16' 

SET    COLOR    to    30,14 

LIST    FOR    arplt    =    'F-16' 
CASE   choice   =    ' 7 ' 

SET    COLOR    TO    20,10 

S    14,30    SAY    'PARTS    FOR    C-47    ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    'C-47    ■ 
CASE   choice   =    '8' 

SET    COLOR    TO    20,10 

a    14,30    SAY    '     PARTS    FOR    F-18     ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    'F-18    » 
CASE   choice   =    •  9  • 

SET    PRINT    ON 

LOOP 
CASE  choice  =  'X'  -OR.  choice  =  '£' 
SET  PRINT  OFF 
RETJRN 
ENDCASE 
SET  ALTERNATE  OFF 
STORE  •  •  TO  manswer 
SET  COLOR  TO  20,  10 
ACCEPT  "ENTER  A  Y  IF  YOU  WISH  ANOTHER  LISTING,  " 
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SET   COLCR    TO    30,14 

ERASE 

IF  manswer  =    fy'    .OR.    manswer    =    'I' 

SET    PRINT    OFF 

LOOP 
ELSE 

RETURN 
ENDIF 
ENDDC 
ENDDO    WHILE 


****************  Resuplc.prg    ***************************** 


*  AUTHOR 

*  DATE 

*  PURPOSE 

* 


HARALABOS 


KONDYLOPOULOS 
11-1-85 

THIS    PROGRAM    REPORTS    THE    NAMES    OF    THE 

SUPPLIERS 

********************************************************** 

SET    COLCR    TO     20,  10 
SET    TALK   OFF 
DO    WHILE   t 
ERASE 

a)    1,12    SAY     *******    SUPPLIERS    REPORT    ********** 
3    3,15    SAY     '     IF    YOU    WANT    TO    FREEZE    THE    SCREEN    HIT    CTRL    S    ' 
3    5,15     SAY     •     IF    YOU    WANT    TO    RETURN    TO    THE    REPORT    MENU,     • 
3    5,  16    SAY     ■     HIT    ESC 
USE    SUPPLIERS 
SET    COLOR    TO     30,  14 
STORE    '     ■    TO    mquery 

ACCEPT     "DO    YOU    WANT    THE    REPORT    PRINTED    ?    Y/N    "    TO    mquery 
IF    mquery    =     *Y'    .OR.    mquery    =    •  y' 

SET    PRINT    ON 

STORE    1    TO    c 

DO    WHILE    c<5 

SET   COLOR    TO    20,  10 

3     12,24     SAY    'PLEASE...     SET    PRINTER    ON     ■ 

112 


5)     12,50    SAY   CHR(7) 
STORE    C+  1    TO    C 
SET   COLOR    TO    30,  14 

ENDDO    WHILE 

REPORT    FORM    SDPPLI 

SET    PRINT    CFF 
ELSE 

ERASE 

S    3,  15    SAY    •     IF    YOO    WANT    TO    FREEZE    THE   SCREEN,     • 

a)    5,15    SAY    *     HIT   CTRLS    IF     YOU    WANT    TO    RETURN    TO    REPORT' 

a)    5,16    SAY    •     MENU,     HIT    ESC    ■ 

REPORT    FORM    SUPPLI 
ENDIF 

STORE     ■    '     TO    mquery 
SET    COLOR    TO   20,10 

ACCEPT    '    DO    YOU    WANT    TO    REPEAT    THE    REPORT    ?    Y/N    '    TO    mquery 
SET    COLOR    TO    30,14 
IF    mquery    =    'Y1    .OR.    mquery    =   •y* 
LOOP 
ENDIF 
RETURN 
ENDDO    WHILE 


******* *******   Reusaqe.prq    ***************************** 

*  AUTHOR    :  KONDYLOPOULOS   HARALABOS 

*  DATE      :  11-1-85 

*  PURPOSE       :     THIS    PROGRAM    REPORTS    THE    USERS    OF    THE    USAGE 

*  :     FILE 

***********  ********************************************* 

SET    COLOR    TO     20,  10 
SET    TALK   OFF 
DO    WHILE   t 
ERASE 

a)    1,15    SAY     ***************    USERS    REPORT    **************** 
a)    3,15    SAY     '     IF    YOU    WANT    TO    FREEZE    THE    SCREEN    HIT    CTRL    S    « 

113 


a)    5,15    SAY     •     IF    YOO    WANT    TO    RETURN    TO    THE    REPORT    MENU,' 
a)    5,16     SAY     ■     HIT    ESC* 
USE   usage 

SET    COLOR    TO    30,14 
STORE    '     *    TO    mguery 

ACCEPT     "DO    YOU    WANT    THE    REPORT    PRINTED    ?    Y/N    "    TO    mguery 
IF    mguery   =    ,Y'    -OR.    mguery    =    •y* 
SET    PRINT    ON 
STORE    1    TO    C 
DO    WHILE    C<5 

SET   COLOR    TO    20,10 

3     12,24    SAY    'PLEASE SET    PRINTER    ON    « 

3)    12,50    SAY   CHR(7) 
STORE    c*1    TO    c 
SET   COLOR    TO    30,  14 
ENDDC    WHILE 
REPORT    FORM    usa 
SET    PRINT    CFF 
ELSE 
ERASE 

3    3,  15    SAY    ■     TO    FREEZE    THE    SCREEN,     HIT   CTRL  S     • 

3    5,15    SAY    '     TO    RETURN    TO    REPORT     MENU,     HIT    ESC    ' 
7 

REPORT    FORM    usa 
END  IF 
STORE    '     '    TO    mguery 
SET    COLOR    TO    20,  10 

ACCEPT     'DO    YOU    WANT    TO    REPEAT    THE    REPORT    ?    Y/N    ■     TO    mguery 
SET    COLCR    TO     30,  14 
IF   mguery  =     'Y'    -OR.    mguery    =    'y* 
LOOP 
ENDIF 
RETURN 
END  DO    WHILE 
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*****************  Reorder. prg   ***************************** 


*  AUTHOR         :     KONDYLOPOULOS       HARALABOS 

*  DATE  :     11-1-85 

*  PURPOSE       :     THIS    PROGRAM    REPORTS    THE    ORDERS    OF    THE    ORDER 

*  :    FILE 
*********************************************************** 

SET    COLOR    TO    20,  10 

SET    TALK   OFF 

DO    WHILE   t 

ERASE 

a)    1,15    SAY     ***************    ORDERS    REPORT    **************** 

3   3,15    SAY    «     10*  FREEZE    THE   SCREEN    HIT    CTRL  S    ■ 

9    5,15     SAY     •     TO    RETURN    TO    THE    REPORT    MENU,       HIT    ESC    ■ 


USE    ORDERS 
SET    COLOR    TO    30,14 
STORE    *     '    TO    mquery 

ACCEPT    "DO    YOO    WANT    THE    REPORT    PRINTED    ?    Y/N    "    TO    mquery 
IF    mquery   =    •Y1    .OR.    mquery    =    'y' 
SET    PRINT    ON 
STORE    1    TO    C 
DO    WHILE    C<5 

SET   COLOR    TO    20,10 

9     12,24    SAY    'PLEASE SET   PRINTER    ON    ■ 

3     12,50    SAY   CHR  (7) 
STORE    C+1    TO    C 
SET   COLOR    TO    30,  14 
ENDDC    WHILE 
REPORT    FORM    ORD 
SET    PRINT    OFF 
ELSE 
ERASE 

5)    3,  15    SAY    ■     TO    FREEZE    THE    SCREEN,    HIT    CTRL  S    ■ 

3    5,15    SAY    ■     TO    RETURN    TO    REPORT     MENU,     HIT    ESC    ' 
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BEPOET    FOEM    OED 
ENDIF 
STOEE    ■     '    TO    mquery 
SET    COLOE    TO     20,  10 

ACCEPT     'DO    YOU    WANT    TO    BEPEAT    THE    EEPOET    ?    Y/N     '     TO    mquery 
SET    COLOE   TO    30,  14 
IF   mquery  =    *  Y'    .OE.    mquery   =    'yf 
LOOP 
ENDIF 
BETUBN 
ENDDO    WHILE 

***************    Eearstr.  prq    ****************************** 

*  AUTHOE         :     KONDYLOPOULOS       HAEALABOS 

*  DATE  :     11-12-85 

*  PUEPOSE       :     THIS    PROGRAM    LISTS   THE    INVENTORY    OF    THE 

*  :     AIBPLANE_STOEES 
*********************************************************** 

SET    PEINT    OFF 

SET    ESCAPE    OFF 

SET    COLCB    TO    30,14 

SET    TALK   OFF 

SET   ALTEBNATE   TO   rearstr.txt 

SET    ALTEBNATE   ON 

EEASE 

a)    2,18     SAY    »********o    INVENTORY    LISTING    »**********'• 

SET    COLCB    TO    20,10 

a)    2,60     SAY    DATE  () 

SET    COLOE    TO    30,14 

USE    arstores 

5)    10,18    SAY     'INDEXING PLEASE    BE    PATIENT' 

a    16,18    SAY     'IF    YOU    WANT     TO    CANCEL.     PLEASE    HIT    <ESCAPE>     ' 
STORE    t    TO    flag 
DO    WHILE    flag 
ERASE 
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STORE    ■    •    TO    mquery 

ACCEPT    "    PRINTED    INVENTORY?    Y/N    "    TO    mquery 

ERASE 

IF  mquery   =    •Y'.OR.    mquery   =    ,yl 

SET    PRINT    ON 

STORE    1    TO    c 

DO    WHILE   C<5 

SET    COLOR    TO    20,  10 

SET    PRINT    ON 

9    12,20    SAY    'SET    PRINTER    ON   PLEASE' 

3    12,50    SAY   CHR(7) 

STORE    C  +  1     TO     C 

SET    COLOR    TO    30 ,  1 4 

ENDDC    WHILE 
ELSE 

SET    PRINT    OFF 
ENDIF 

STORE    t    TO    Xflaq 
DO   WHILE   xflaq 

ERASE 

SET    COLOR    TO     112,140 

J)    11,15    SAY    '    TO    FREEZE    THE    SCREEN    DURING    THE     • 

3     12,15    SAY    •     LISTING    HIT    CTRL    NUH_LOCK.        ' 

3     12,16    SAY     ■    PRESS    AN*    KEY    TO   CONTINUE    ■ 

SET    COLOR    TO    30,  14 

a)  1,5  SAY  *********  REPORT  MENU  ********* 

SET  COLOR  TO  20,  10 

a)    3,15    SAY    ■  ARPLANE    TYPE    MENU1 

a)    3,60    SAY    DATE     () 

SET    COLOR    TO    30,  14 


3 

4,1 

SAY 

•OPTIONS     • 

a) 

5,1 

SAY 

•          0 

F-104' 

a> 

6,  1 

SAY 

'          1 

F-1.     « 

a 

7,1 

SAY 

'         2 

F-102' 

a 

8,1 

SAY 

'         3 

C-130' 
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a 

9,1 

SAY    » 

4 

F-4       • 

a 

5,30 

SAY    • 

5 

F-5       ' 

a 

6,30 

SAY    ' 

6 

F-16    • 

a> 

7,30 

SAY    ■ 

7 

C-47    ■ 

3 

8,30 

SAY    ■ 

8 

F-18    • 

d 

9,30 

SAY    ' 

9 

PRINT    Y00R    CHOICE    ' 

a 

10,15    SAY 

•       X 

EXIT    TO    REPOMENU     • 

3    17,1     SAY    • OPTION: « 
STORE    '    '    TO    choice 
WAIT   TO    choice 
ERASE 
DO    CASE 

CASE   choice   =    «0 ■ 

SET    COLOR    TO    20,10 

3    14,30    SAY    '     PARTS    FOR    F-104    • 

SET    COLOR    TO    30,14 

LIST   FOR   arplt   =    'F-104* 
CASE  choice   =    • 1 • 

SET    COLOR    TO    20,10 

3    14,30    SAY    'PARTS    OF    F-1 • 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    ' F- 1  -  ' 
CASE   choice   =    •  2  ' 

SET    COLOR    TO     20,10 

3    14,30    SAY    '     PARTS    OF    F-102    ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt    =    'F-102' 
CASE   choice   =    '3' 

SET    COLOR    TO    20,10 

S    14,30    SAY    'PARTS    OF    C-130' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    'C-130' 
CASE   choice   =    «4 • 

SET    COLOR    TO    20,10 

3    14,30    SAY    '     PARTS    OF    F-4    ' 
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SET    COLOR    TO    30,14 
LIST    FOR    arplt   =    'F-41 
CASE  choice   =    •5' 

SET    COLOR    TO    20,10 
3    14,30    SAY    ■     PARTS    FOR    F-5    f 
SET    COLOR    TO    30,14 
LIST    FOR    arplt   =    • F- 5    • 
CASE   choice   =    *  6 ' 

SET    COLOR    TO    2  0,10 
5)    14,30    SAY    '     PARTS    FOR    F-16  ' 
SET    COLOR    to    30,14 
LIST    FOR    arplt   =    'F-161 
5)    14,30    SAY    'PARTS    FOR    C-47     • 
SET    COLOR    TO    30,14 
LIST   FOR    arplt   =    «C-47    « 
CASE  choice  =    «8 ■ 

SET    COLOR     TO    20,10 
a)    14,30    SAY    ■     PARTS    FOR    F-18    ' 
SET    COLOR     TO    30,14 
LIST    FOR    arplt   =    »F-18     • 
CASE  choice   =    »9» 
SET    PRIM!    ON 
LOOP 
CASE  choice   =    'X1    .OR.    choice  =    •x' 
SET    PRINT   OFF 
RETURN 
ENECASE 
SET    ALTERNATE    OFF 
STORE    *    •     TO    manswer 
SET    COLOR    TO    20,10 

ACCEPT    "ENTER    A    Y    IF    YOU    WISH    ANOTHER    LISTING,     " 
SET   COLCR    TO    30,  U 
ERASE 

IF  manswer   =    'y1    .OR.     manswer    =    'Y' 
SET     PRINT    OFF 
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LOOP 
ELSE 

EETUEN 
ENDIF 
ENDDC 
END  DO    WHILE 


******* **********   Rewstr.prg    **************************** 


*  AUTHOR 

*  DATE 

*  PURPOSE 
* 


HARALABOS 


KONDYLOPOULOS 
11-14-85 

THIS    PROGRAM    LISTS   THE    INVENTORY    OF    THE 
WEAPON_STORES 
********************************************************* 

SET    PRINT    OFF 

SET    ESCAPE    OFF 

SET    COLOR    TO     30,  14 

SET    TALK   OFF 

SET    ALTERNATE   TO   rewstr.txt 

SET    ALTERNATE    ON 

ERASE 

3    2,18     SAY    »********o    INVENTORY    LISTING    ************ 

SET    COLOR    TO     20,  10 

3    2,60     SAY    DATE  () 

SET    COLOR    TO     30,  14 

USE    ws tores 

3     10,18    SAY     'INDEXING PLEASE    BE    PATIENT' 

a    16,18    SAY     'IF     YOU    WANT     TO    CANCEL.      PLEASE    HIT    <ESCAPE>     ' 
STORE    t    TO    flag 
DO    WHILE    flag 

ERASE 

STORE    •    '     TO    mguery 

ACCEPT    "    PRINTED    INVENTORY    ?    Y/N    "    TO    mquery 

ERASE 

IF   mquery    =    'Y'-Ofi.    mquery    =    'y* 
SET     PRINT    ON 
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STORE    1    TO    C 
DO     WHILE    C<5 

SET    COLOR    TO    20,  10 

SET    PRINT    ON 

3    12,20    SAY    'SET    PRINTER   ON    PLEASE1 

3    12,50    SAY   CHR(7) 

STORE    C+1    TO    C 

SET    COLOR    TO    30 , 1 4 
ENDDC    WHILE 
ELSE 

SET    PRINT    OFF 
ENDIF 

STORE    t    TO   xflag 
DO  WHILE    xflag 
ERASE 

SET    COLOR    TO     112,14  0 

3     11,15    SAY    '     IF    YOU    WANT    TO    FREEZE    THE    SCREEN     \     ' 
a>    12,15    SAY    ■    DURING    THE    LISTINGHIT    CTRL    NUM_LOCK.  ■ 
a)     13,16    SAY    •     PRESS     ANY    KEY    TO   CONTINUE    ■ 
SET    COLOR    TO    30, 14 

3    1,5    SAY    *********     REPORT    MENU    ********* 
SET    COLOR    TO    20,  10 
a)    3,15    SAY    » ARPLANE    TYPE    MENU' 
a)    3,60    SAY    DATE     () 
SET    COLOR    TO    30,  14 


a 

4,1 

SAY    ' 

OPTIONS     • 

a 

5,1 

SAY    ' 

0 

F-104' 

a 

6,1 

SAY 

1 

F-1.     ■ 

a 

7,1 

SAY    ' 

2 

F-102' 

a 

8,1 

SAY    ' 

3 

C-130' 

a 

9,1 

SAY    ' 

4 

F-4       ' 

a 

5,30 

SAY 

i 

5 

F-5       • 

a 

6,30 

SAY 

i 

6 

F-16    « 

a) 

7,30 

SAY 

t 

7 

C-47     • 

5) 

3,30 

SAY 

i 

8 

F-13    « 
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a    9,30    SAY    •  9  PRINT    YOUR    CHOICE    ■ 

3    10,15    SAY    •       X  EXIT    10    REPOMENU    ' 

5>     17,1     SAY    'OPTION:  ■ 

STORE    '     '    TO    choice 

WAIT   TO    choice 

ERASE 

DO     CASE 

CASE   choice   =    '0  • 

SET    COLOR    TO    20,10 

3    14,30    SAY    '     PARTS    FOR    F-104    ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    'F-104' 
CASE   choice  =    •  1  ' 

SET    COLOR    TO     20,10 

5)    14,30    SAY    'PARTS    OF    F-1' 

SET    COLOR     TO    30,14 

LIST    FOR    arplt    =    ' F- 1 . ' 
CASE   choice   =    '2' 

SET    COLOR    TO    20,10 

3    14,30    SAY    '     PARTS    OF    F-102     ' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt    =    'F-102' 
CASE   choice   =    '3  ' 

SET    COLOR     TO    20,10 

3    14,30    SAY    'PARTS    OF    C-130' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    'C-130* 
CASE   choice   =    •  4  ' 

SET    COLOR    TO    20,10 

a)    14,30    SAY    '     PARTS    OF    F-4    • 

SET    COLOR    TO    30,14 

LIST    FOR    arplt    =    «F-4' 
CASE   choice   =    '5  ' 

SET    COLOR    TO     20,10 

3    14,30    SAY    '     PARTS    FOR    F-5    ' 

122 


SET    COLOR    TO    3  0,14 
LIST   FOE    arplt   =    •  F-5    • 
CASE   choice   =    • 6  * 

SET    COLOR    TO    20,10 
a)    14,30    SAY    ■     PARTS    FOR    F-16* 
SET    COLOR    to    30,14 
LIST   FOR    arplt   =    ^-16' 
CASE  choice  =    «7  ■ 

SET    COLOR    TO    20,10 
3)    14,30    SAY    'PARTS    FOR    C-47    ■ 
SET    COLOR    TO    30,14 
LIST    FOR    arplt   =    'C-47    • 
CASE   choice   =    '8 • 

SET    COLOR    TO    20,10 
d)    14,30    SAY    ■     PARTS    FOR    F-18     • 
SET    COLOR    TO    30,14 
LIST   FOR    arplt   =    'F-18    • 
CASE   choice   =    «9 • 
SET    PRINT    ON 
LOOP 
CASE   choice   =    'X'    .OR.    choice   =    'x' 
SET    PRINT    OFF 
RETURN 
ENCCASE 
SET    ALTERNATE   OFF 
SIORE    '    •    TO   manswer 
SET    COLOR    TO    20,  10 

ACCEPT    "ENTER    A    Y    IF    YOU    WISH    ANOTHER    LISTING,     " 
?    "ELSE    ENTER    N    "    TO    m answer 
SET    COLOR    TO    30,14 
ERASE 

IF  manswer   =    'y*    .OR.     manswec    =    *Y' 
SET    PRINT    OFF 
LOOP 
ELSE 
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RETURN 
ENDIF 
ENDDO 
END  DO   WHILE 


************ **********   Reacstr.prg    ************************ 

*  AUTHOR    :  KONDYLOPOULOS   HARALABOS 

*  DATE      :  11-15-65 

*  PURPOSE       :     THIS    PROGRAM    LISTS   THE    INVENTORY    OF 

*  :     THE   ACCESSORIES_STORES 
*********************************************************** 

SET    PRINT    OFF 

SET    ESCAPE    OFF 

SET    COLCR    TO     30,  14 

SET    TALK   OFF 

SET    ALTERNATE   TO   reacstr.txt 

SET   ALTERNATE    ON 

ERASE 

S    2,18     SAY    »********o    INVENTORY    LISTING    '**********» 

SET    COLOR    TO     20,  10 

a)    2,60    SAY    DATE  () 

SET    COLCR    TO    30,  14 

USE    acs tores 

a)    10,18    SAY     'INDEXING PLEASE    BE    PATIENT' 

a)    16,18    SAY     'IF    YOU    WANT    TO    CANCEL.     PLEASE    HIT    <ESCAPE>     • 
STORE    t    TO    flag 
DO    WHILE    flag 

ERASE 

STORE    ■    •    TO    mquery 

ACCEPT    "    PRINTED    INVENTORY    ?    Y/N    "    TO    mquery 

ERASE 

IF   mquery    =    •Y'.OR.    mquery    =    •y* 
SET     PRINT    ON 
STORE    1    TO    C 
DO     WHILE   C<5 
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SET    COLOR    TO    20 ,  1 0 

SET    PRINT    ON 

9    12,20    SAY    'SET     PRINTER    ON    PLEASE' 

3    12,50    SAY   CHR(7) 

STORE    C+1    TO    c 

SET    COLOR    TO    30, 14 
END  DO    WHILE 
ELSE 

SET    PRINT    OFF 
ENDIF 

STORE    t    TO   xflag 
DC   WHILE    xflag 
ERASE 

SET    COLOR    TO     112,140 

S     11,15    SAY    ■    IF    YOD    WANT    TO    FREEZE    THE    SCREEN 
a    12,15    SAY    ■    DURING    THE    LISTING    HIT    CTR    NUd_LOCK-' 
a    12,16    SAY    ■     PRESS     ANY    KEY    TO   CONTINUE.' 
SET    COLOR    TO    30, 14 

a    1,5    SAY    *********     REPORT    MENU    ********* 
SET    COLOR    TO    20,  10 
a    3,15     SAY    'ARPLANE    TYPE    MENU* 
a    3,60    SAY    DATE     () 
SET    COLOR    TO    30,  14 


a 

4,1 

SAY    '  CPTIONS     • 

a 

5,1 

SAY    » 

0 

F-104' 

a 

6,1 

SAY    ' 

1 

F-1.     » 

a 

7,1 

SAY    ' 

2 

F-102' 

a 

8,1 

SAY    ■ 

3 

C-130' 

a 

9,1 

SAY    ' 

4 

F-4       • 

a 

5,  30 

SAY    ' 

5 

F-5      ' 

a 

6,30 

SAY    ' 

6 

F-16    • 

a 

7,30 

SAY    ' 

7 

C-47    ■ 

a 

8,30 

SAY    ' 

8 

F-18    • 

a 

9,30 

SAY    ' 

9 

PRINT    YOUR    CHOICE    • 

a 

10,15   SAY    ' 

X 

EXIT    TO    REPOMENO    ' 
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a    17,1     SAY    ■  OPTION:  ' 
STORE    '    ■    TO    choice 
WAIT   TO   choice 
ERASE 
DO    CASE 

CASE   choice   -    •O* 

SET    COLOR    TO    20,10 

a)    14,30    SAY    '     PARTS    FOR    F-104 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    'F-104' 
CASE   choice   =    ' 1 ' 

SET    COLOR    TO    20,10 

3>    14,30    SAY    'PARTS    OF    F-1' 

SET    COLOR    TO    30,14 

LIST    FOR    arplt   =    « F- 1 . • 
CASE  choice   =    •  2' 

SET    COLOR    TO    20,10 

3    14,30    SAY    •     PARTS    OF    F-102     ' 

SET    COLOR    TO    30,14 

LIST   FOR    arplt   =    'F-1021 
CASE   choice   =    »3 ' 

SET    COLOR    TO     20,10 

a    14,30    SAY    'PARTS    OF    C-130' 

SET    COLOR    TO     30,14 

LIST    FOR    arplt    =    'C-130' 
CASE   choice   =    '4 ' 

SET    COLOR    TO    20,10 

a    14,30    SAY    '     PARTS    OF    F-4    • 

SET    COLOR    TO    30,14 

LIST    FOR    arplt    =    'F-4' 
CASE   choice   =    '5  • 

SET    COLOR     TO     20,10 

a    14,30    SAY    '     PARTS    FOR    F-5    ' 

SET    COLOR    TO    3  0,14 

LIST    FOR    arplt    =    'F-5    ' 
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CASE  choice   =    *6 ■ 

SET    COLOR    TO    20,10 
2>    14,30    SAY    ■     PARTS    FOR    F-16' 
SET    COLOR    to    30,14 
LIST    FOR    arplt   =    »F-16' 
CASE   choice   =    »7 • 

SET    COLOR    TO     20,10 
a>    14,30    SAY    » PARTS    FOR    C-47    ■ 
SET    COLOR    TO    30,14 
LIST    FOR    arplt   =    'C-47    « 
CASE   choice   =    »8« 

SET    COLOR    TO    20,10 
3    14,30    SAY    f     PARTS    FOR    F-18     ' 
SET    COLOR    TO    30,14 
LIST   FOR    arplt   =    'F-18    » 
CASE   choice   =    »9 f 
SET    PRINT    ON 
LOOP 
CASE  choice  =    «Xf    .OR.    choice   =    »x' 
SET    PRINT    OFF 
RETURN 
ENDCASE 
SET    ALTERNATE   OFF 
STORE    •    ■    TO    manswer 
SET    COLOR    TO    20,  10 

ACCEPT    "ENTER    A    Y    IF    YOU    tflSH    ANOTHER    LISTING," 
?    "    ELSE    ENTER    N    "     TO    manswer 
SET    COLOR    TO    30,14 
ERASE 

IF  manswer  =    'y'    .OR.    manswer    =    'Y* 
SET    PRINT    OFF 
LOOP 
ELSE 

RETURN 
ENDIF 
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ENDDO 
ENDDO    WHILE 

****************   Quemenu.  prg    ****************************** 

*  AUTHOR     :  KONDYLOPOULOS  HARALABOS 

*  DATE       :  10-11-85 

*  PURPOSE  :    THIS    PROGRAM    SELECTS    THE    REQUIRED    QUERY 

*  :     OPERATION,     BY    USING    A     MENU    DRIVEN    CHOICE 
***********  ************************************************ 

SET    ESCAPE    OFF 

SELECT     PRIMARY 

SET    COLOR    TO    20,5 

SET    TALK    OFF 

SET    FORMAT    TO   SCREEN 

SET    CONSOLE    ON 

DO    WHILE   t 

CLEAR 

ERASE 

3    1,15    SAY    *******    'AIRPLANE'     PARTS    SYSTEM    •*******» 

3    3,1     SAY    'QUEMENU* 

3    3,60    SAY    DATE() 

3    7,1     SAY    ■     OPTIONS:  ' 

3    9,1     SAY    ■  0    EXIT   TO    OPERATING    SYSTEM* 

a    11,1    SAY     '  1    LOCATION    OF    A    SPECIFIC    PART     • 

a    13,1    SAY    '  2    COST    OF    A    SPECIFIC    PART    IN    ' 

a    14,17    SAY    '  A    GIVEN    DATE     • 

3    15,1    SAY    «  3    NAME    OF    ORDERED    ON    A    GIVEN    ' 

3    16,17    SAY     '  PART_NUMBER    AND    DATE    ' 

a    17,1    SAY    ■  4    EXIT    TO    MAIN    MENU' 

a    19,1     SAY     '  X    EXIT    TO    DATABASE* 

a    2  1,1    SAY     '        SELECT    CHOICE        ' 

STORE    ■     '    TO    choice 

WAIT    10    choice 

DO    CASE 

CASE    choice   =    ,0' 
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CLEAR 

QUIT 
CASE    choice   =    »1 • 

DO   quel 

USE 
CASE    choice   =    '21 

DO   que2 

USE 
CASE    choice   =    «3« 

DO    que3 

USE 
CASE    choice   =    *4» 

RETURN 

USE 
CASE    choice   =    «X» 

CANCEL 
OTHERWISE 

STORE    1    TO    z 

DO    WHILE    z<5 

a    30,5    SAY    "INVALID   CHOICE. 

3    31,5    SAY    CHR  (7) 
STORE    Z+1    TO   z 

EN  EDO 
ENDCASE 
END  DO    V7HILE    t 


OR.    choice    =    *xf 


..     PLEASE    TRY    A3AIN    •■ 


****************   Quel.pcq    ******************************** 

*  AUTHOR  :    KCNDYLOPCULOS    HARALABOS 

*  DATE  ;     11-1 1-85 

*  PURPOSE  :     THIS    PROGRAM    FINDS    A     SPECIFIC    PART    FROM    THE 

*  :    INVENTORY 
********************************************************** 

SET    ESCAPE    OFF 
SET    COLCR    TO     30,  14 
SET    TALK    OFF 
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DO    WHILE   t 
SELECT    PRIMARY 
USE   parts    INDEX   parts 

SIORE     *  •    TO   mpno 

ERASE 

3    4,60     SAY   DATE  () 

a    15,1    SAY    'ENTER    PART    NUMBER     '    GET   mpno 

a    23,1     SAY    'ENTER    A    BLANK   TO    EXIT    TO    QUEMENO' 

READ 

SET    COLOR    TO    20,  10 

a    1,56    SAY    mpno 

SET   COLOR    TO    30,14 

If   $(mpno,  1,  1)  =    •    ' 

BETDRN 
ENDIF    $  (mpno,  1,1)=    •    ■ 

3    1,15    SAY    'LOCATION    OF    THE    PART    WITH    PART_NUilBER 
FIND    &mpno 
IF    #    =    0 

SET    COLOR    TO     112,  140 

3    21,1    SAY    'DOES     NOT    EXIST    IN    THE    FILE    ' 

S    22,40    SAY    CHR (7) 

SET    TALK    OFF 

SIORE    1    TO    XX 

DC    WHILE    XX<35 

STORE    xx  +  1    TO    XX 

ENDDO    WHILE    x x< 7 0 

SET    COLOR    TO    30 ,  1 4 

LOOP 
ENDIF     #    =    0 
ERASE 

a     1,15     SAY    'LOCATION    OF    THE    PART     WITH    PART_NUHBSR 
S  ET    COLOR    TO    20, 10 
a    1,56    SAY   mpno 
SET    COLCR    TO     30,  14 
a    4,60     SAY    DATE     () 
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3    23, 1    SAY    'ENTER    A    BLANK    TO    EXIT    TO    QOEMENU' 
DO    CASE 

CASE  arstrna  <>    •  ■ 

SELECT    SECONDARY 
STORE    ■  •    TO   as  If  no 

USE   arstores    INDEX    arstores 
FIND    Sp.pno 

a    7,1     SAY    •    DESCRIPTION    :'    ♦    p.desc 
3    8,1     SAY    •    ARPLANE    TYPE:'     +    arplt 
3    9,1     SAY     ■    QOH  :'     +    STR(p.qoh,5) 

3    10,1     SAY    ■     COST  :»    +    ST  R  (p. cost,  8) 

SET    COLOR    to    10,20 

a    11,1     SAY    ■    THE    PART    STORE    IS  :    •  +    arstrna 

3    12,  1     SAY    •     THE   PART    SHELF    NUMBER    IS    :     •+    aslfno 
SET    COLCR    TO    20,10 

a    23,1     SAY    ■     TO    FREEZE    THE    S3REEN..    HIT  N03_LOCK 

SET    COLCR    TO    30,14 
READ 
USE 
CLEAR 
CASE   wstrna    <>    ■  • 

SELECT    SECONDARY 
STORE     •  ■    TO    wslfno 

USE   wstores   INDEX   wstores 
FIND    Sp.pno 

S    6,1    SAY    'DESCRIPTION  :'    +    p.desc 

a    7,1     SAY    fARPLAN_TYPE  :'    +    arplt 

a    8,1     SAY     'QUANTITY    ON    HAND    :'    +    STR(p.  qoh,5) 
a    9,1     SAY     'COST  :'    +    STR(p.cost,8) 

SET    COLCR    TO    10,20 

a  10,1  SAY  'THE  STORE  OF  THE  PART  IS  :»  +  wstrna 
a  11,1  SAY  'THE  SHELF  OF  THE  PART  IS  :'+  wslfno 
ST    COLOR    TO    20, 10 

a    23,1     SAY    'TO    FREZE   THE   SCREEN..    HIT       NUM_LOCK    ' 
SET    COLCR    TO    30,  14 

131 


READ 

CLEAR 

LOOP 
CASE  juna   <>    ■  ■ 

SELECT    SECONDARY 

STORE     •  ■    TO    jslfno 

USE   junstores   INDEX    junstores 

FIND    &p.pno 

d)  6,1  SAY  'DESCRIPTION  :«  +p.  desc 

3  7,1  SAY  'QUAN_ON_HAND:'  +  STR(p.qoh,5) 

a  8,1  SAY  "COST  :•  +  STR(p.cost,8) 

SET    COLOR    TO     10,20 

S    9,1     SAY    ■    THE    STORE    OF   THE    PART    IS    :'  +    juna 

a    10,1     SAY    'THE    SHELF    OF    THE    PART    IS    :'+    jslfno 

SET    COLOR    TO    20,10 

a    23,1     SAY    'TO    FREEZE    THE    SCREEN. .HIT       NUM_LOCK    ' 

SET    COLOR    TO    30  r  14- 

READ 

CLEAR 

LOOP 
CASE     acstrna      <>    ■  • 

SELECT    SECONDARY 

SIORE    '  '    TO   acslfno 

USE   acs tores   INDEX    acs tores 

FIND    Sp.pno 

a    6,1     SAY    'DESCRIPTION  :'    ♦     p.  desc 

3    7,1     SAY    'ARPL_TYPE  :'     ♦    p. arplt 

a    8,1     SAY    'QUAN_ON_HAND       ;'    ♦    STfi(p.qoh,5) 

a  9,1  SAY  'COST  :'  +  STR  (p. cost, 8) 

SET  COLOR  TO  10  ,20 

a    10,1     SAY    'THE    PART    STORE    IS    : •    ♦    acstrna 

a    11,1     SAY    'THE    PART   SHELF    IS     : •     ♦    acslfno 

SET    COLOR    TO    20,  10 

a    23,1     SAY    '    TO    FREEZE    THE    SCREEN    HIT       NUM_LOCK' 

SET    COLOR    TO     30,  14 
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READ 
CIEAR 
LCOP 
OTHERWISE 

9     18,10    SAY    'THIS    IS   NOT    PART    OF    THE    INVENTORY    ' 
CLEAR 
LOOP 
ENDCASE 
ENDDO    WHILE    t 


***************   Que2.prg    ********************************* 

*  AUTHOR         :     KONDYIOPOULOS    HAflALABOS 

*  DATE  :     11-18-85 

*  PURPOSE       :     THIS    PROGRAM    FINDS    THE    QUANTITY    AND   THE    COST 

*  :     OF    A    SPECIFIC   PART    IN    A    SPECIFIC    TIME. 
********************************************************** 

SET    COLOR   TO    30,  14 

SET    ESCAPE    OFF 

SET    TALK   OFF 

ERASE 

SELECT     PRIMARY 

USE    orders    INDEX   pno 

STORE    t    TO    flag 

*  Create  a  continue  loop 
DO  WHILE  t 

STORE  ■  '  TO  answer 

STORE  '       *  TO  mpno 

9  15,1  SAY  'ENTER  PART  NUMBER  •  GET  mpno 
*  If  it  is  selection  of  new  part  for  the  same  date 
IF  flag 

STORE  ■  •  TO  mdate 

9  4,60  SAY  DATE() 

3  17,1  SAY  'ENTER  THE  DATE'  GET  mdate  PICTURE  '99-99-991 
ENDIF 
READ 
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*  Return  to  guemenu  for  a  blank  entry 
IF  $  (mpno,  1,  1)=  •  • 

RETURN 
ENDIF 
ERASE 

FIND  &mpno 
IF  #  =  0 

DO   error 
ENDIF 

STORE   0    TO   count 
STORE   0    TO   temp 

*  Look    up    all   the   file   for   a  specific  part#    and   date 
DO    WHILE    pno    =    mpno    .AND.     .NOT.     EOF 

IF    date   =    mdata 

ERASE 

3    6,  1    SAY    CHR  (7) 

SET    COLOR    TO    20 , 1 0 

3    7,1    SAY    'QUANTITY  COST  EXTER_COST' 

SET    COLOR    TO    30 ,  1 4 

a    10+count,3    SAY    +qnt 

a    10+count,17    SAY    +cost 

STORE   cost*gnt   TO   excost 

a    10+count,36    SAY    +excost 

STORE   excost* temp   TO    temp 

STORE   count* 1    TO    count 
ENDIF 

SKIP 
ENDDO    WHILE 

3    15,15    SAY    'THE    TOTAL    COST    OF    THIS    DATE,     IS     :' 
SET    COLOR    TO    20,10 
a    15,49    SAY    +temp 
STORE    1    TO    xx 
DO    WHILE     xx<50 

STORE    xx+1    TO    xx 
ENDDO 
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(answer)    =    • C*    ) 


ERASE 

SET    COLOR    10    30,14 

DO   WHILE    .NOT.     (    (answer)     =    ■  N«    .OR.     (answer)    =    "C1) 

STOfl£    •  C«    TO    answer 

SET   COLCR    TO    112,140 

3    22, 10    SAY    ■     ENTER    AN    ACTION 

5)   22, 57   GET  answer 

a    23,10    SAY    »C    =    CONTINOE    WITH    NEXT   PART_NUMBER    ' 

3    23,11    SAY    ■    N    TO    EXIT    TO    QUEMENU    • 

SET    COLCR    TO    30,14 

READ 

IF   .NOT.     (    (answer)    =    'Nf    .OR 
DO    error 
STORE    '    '    TO  answer 

ENDIF 
ENDDO   WHILE 
DO   CASE 
CASE    (answer)    =    »C' 

*  Ask  a    new   part   number  in    the   same    date 
STORE  f    TO   flag 
LOOP 
CASE     (answer)    =    'N1 

*  Ask  a    new    date   for   the    same    part_number 
RETURN 

ENDCASE 
ENDDO    WHILE 


****************    Que3.prg    ******************************* 

*  AUTHOR         :     KONDYLOPOULOS    HARALABOS 

*  DATE  :     11-18-85 

*  PURPOSE       :     THIS    PROGRAM    FINDS    THE     NAME    OF    THE 

*  :     PURCHASING    AGENT, AND    THE    TIME    OF    THE    ORDER 

*  :     FOR    A    SPECIFIC    PART. 
********************************************************* 

SET    COLOR    TO     30,  14 
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SET    ESCAPE    OFF 

SET    TALK   OFF 

ERASE 

SELECT    PRIMARY 

OSE    orders    INDEX   pno 

STORE   t    TO    flag 

*  Create  a  continue  loop 

DO  WHILE  t 

STORE  ■  •  TO  answer 

STORE  '       ■  TO  mpno 

a  15,1  SAY  'ENTER  PART  NUMBER  •  GET  mpno 

*  If  it  is  selection  of  new  part  for  the  same  date 
IF  flag 

STORE  '  ■  TO  mdate 

3  4,60  SAY  DATE  (J 

3    17,1    SAY    'ENTER    THE    DATE'    GET    mdate    PICTURE    '99-99-99' 

ENDIF 

READ 

*  Return    to   guemenu   for  a    blank    entry 
IF   $  (mpno,  1,1)=    '    • 

RETURN 
ENDIF 
ERASE 

FIND    Smpno 
IF    #    =    0 

DO   error 
ENDIF 

STORE    0    TO   count 
STORE   0    TO    temp 

*  Look    up    all   the   file    for   a   specific   part#    and   date 
IF    date    =    mdate    .AND.     pno    =    mpno 

ERASE 

3    6,1    SAY    CHR  (7) 

SET    COLOR    TO     20 , 1 0 

a    7,1     SAY     'PA_NUMfl    -    ORDERED_NAME    -     EXTER_COST' 
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SET    COLOR    TO    30, 14 
a    10+count,3    SAY    +pno 
3    10+count,17    SAY   +ordna 
STORE  cost*qnt  TO  excost 
a    1 0+count,36    SAY   +excost 
ENDIF 

9    15,15    SAY    «THE   ORDERED    NAME    IS    :• 
SET    COLOR    TO    20,10 
d    15,37    SAY    +ordna 
STORE    1     TO   xx 
DO    WHILE    xx<50 

STORE    XX+1    TO    xx 
ENDDO 
ERASE 

SET    COLOR    TO    30,14 

DO  WHILE    .NOT.     (    (answer)     =   'N*     .OR.     (answer)     =    'CM 
STORE    •  C    TO    answer 
SET    COLOR    TO     112,140 
3    22,10    SAY    ■    ENTER    AN    ACTION 
3    22, 57   GET   answer 

3    23,10    SAY    »C    =    CONTINUE    WITH    NEXT    PART_NUMBER    « 
a    23,11    SAY    ■     N    =    EXIT    TO    QUEMENU    ■ 
SET    COLOR    TO    30,  14 
READ 

IF   .NOT.     (    (answer)    =    «N»    .OR.     (answer)     =    'C    ) 
DO    error 

STORE    *    *    TO    answer 
ENDIF 
ENDDO 
DO   CASE 

CASE    (answer)    =    'C 

*    Ask   a    new    part_n umber   in   the   same    date 
STORE    f    TO    flag 
LOOP 
CASE     (answer)    =    fN' 
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*   Ask  a    new    order_n umber    for   the    different   date 

RETURN 
ENDCASE 
ENDDO    WHILE    t 

**************   Error. prg    ********************************* 

*  AUTHOR         :     KONDYLOPOULOS    HARALABOS 

*  DATE  :     11-11-85 

*  PURPOSE       :     THIS    ROUTINE    FLASHES    A    BAD   INPOT    MESSAGE 

***************************  **  ********************  ********* 

SET    COLOR   TO    errcolor ,  berrcolor 
STORE    1    TO    xx 
DO    WHILE  xx  <8 

a)    20,  50    SAY    'BAD    INPOT     ■ 

5)    21,50    SAY    'CHECK    YOUR    INPUT    ' 

a)    22,50    SAY    'AND    TRY    AGAIN     ■ 

a)    22,65    SAY    CHR(7) 

STORE    XX    +     1    TO    XX 
ENDDO    WHILE 
ERASE 

SET    COLOR    TO    mscolor ,  ceo  lor 
RETURN 
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APPENDIX  B 
DEFINITIONS  OF  THE  DATABASE  [REF  2] 

Binding  is  the  process  of  fixing  data  or  processing  all 
relationships  which  are  used  to  generate  informations  that 
must  be  bound.   Binding  frequently  takes  place  years  before 
a  new  database  system  becomes  operational. 

Computation  on  a  database  denotes  a  section  of  an  applica- 
tion on  the  database  as: 

a.  Building  of  the  data  collection  that  includes  data 
collection,  data  organization,  and  data  storage. 

b.  Updating  of  a  database  that  includes  the  addition  of 
new  data,  the  changing  of  the  values,  and  the  deletion 
of  data. 

c.  Data  retrieval  that  can  consist  of  the  fetching  of  a 
specific  element  in  order  to  get  a  stored  value  or  fact. 
To  fetch  a  specific  data  record,  the  database  uses  a 
search  argument,  which  is  matched  with  a  key  in  the 
database  records . 

d.  Reduction  of  large  quantity  of  data  to  usable  form  we 
have  when  the  volume  summarization  of  data  presented  in 
manageable  and  usable  form.   Some  of  the  common  used 
techniques  are:  statistical  summaries  and  annual  business 
operating  statements. 

Database  is  a  shared  collection  of  inter-related  data  de- 
signed to  meet  the  varied  information  needs  of  an  organization 
Database  Management  System  (DBMS)  is  a  software  system  that 
performs  (carries  out)  all  user's  requests  for  data.   User's 
requests  may  be  an  update  or  a  retrieval. 
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Database  system  is  a  system  to  record  and  maintain  informa- 
tion  that  is  significant  to  organization  in  the  decision- 
making processes. 

Files  is  a  term  in  the  computer  terminology  where  data  is 
stored  more-or-less  permanently  in  a  computer  and  the  pro- 
grams that  manipulate  it. 

Flowcharts  is  a  way  of  describing  complex  processes  and 
data  flow  by  using  a  graphic  description.   There  are  three 
types  of  activities:  control  flow,  control-data  flow,  and 
data  flow. 

a.  Control  flow  is  the  sequence  of  instructions  by  process- 
ing unit  . 

b.  Control-data  flow  is  the  flow  of  data  elements  that 
effect  the  control  flow  of  the  computation. 

c.  Data  flow  is  the  typical  flow  between  files  and  input 
or  output  devices  . 

Input -Output  consists  of  internal  and  external  transfers  of 

data.   Internal  when  reading  or  writing  files  where  data  is 

transferred  between  storage  unit  of  the  computer  and  external 

when  reading  input  or  writing  output.   Database  is  concerned 

with  data  which  remains  within  the  scope  of  the  system. 

Processes  are  the  basic  computational  units  managed  by  the 

operating  system.   The  scheduling  and  performance  of  process, 

and  hence  of  the  computations  that  were  specified  determine 

the  performance  of  database  systems. 

Record  is  a  collection  of  similar  records  kept  on  a  secondary 

computer  storage  device. 
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Size  is  the  quantity  of  data  to  be  handled,  and  depends  on 
the  hardware  and  operational  constraints  which  may  apply 
in  a  given  environment. 
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APPENDIX  C 
DBASE  II  COMMAND  SUMMARY  [REF.  17] 


">  ?  —  displays  an  expression,  variable,  or  field. 

>  ??  —  displays  an  expression  list  without  a  preceding 

line  feed. 

>  @  —  displays  user  formatted  data  on  screen  or  printer. 

>  ACCEPT  —  allows  input  of  character  strings  into  memory 

variables. 

>  APEND  —  append  information  from  another  dBASE  II  database 

or  files  in  Delimited  or  System  Data  format. 

>  BROWSE  —  full  screen  window  viewing  and  editing  of 

database. 

>  CANCEL  —  cancels  command  file  execution. 

>  CHANGE  --  Non-Full-Screen  edit  of  fields  of  database. 

>  CLEAR  —  closes  databases  in  use  and  releases  current 

memory  variables. 

>  CONTINUES  —  continue  the  searching  action  of  a  LOCATE 

command . 

>  COPY  —  creates  a  copy  of  an  existing  database. 

>  COUNT  —  counts  the  number  of  records  in  file  which 

meet  some  criteria. 

>  CREATE  —  creates  new  database. 

>  DELETE  —  deletes  a  file  or  marks  records  for  deletion. 

>  DISPLAY  —  display  files,  database  records  or 

structure,  memory  variables,  or  status. 

>  DO  —  executes  command  files  or  structured  loops  in  same. 

>  EDIT  —  initiates  edit  of  records  in  a  database. 

>  EJECT  —  ejects  a  page  on  the  printer. 

>  ELSE  —  alternate  path  of  command  execution  within  IF. 

>  ENDCASE  —  terminates  a  CASE  command. 

>  ENDDO  —  terminates  DO  WHILE  command. 

>  ENDIF  —  terminates  an  IF  command. 

>  ENDTEXT  —  terminates  a  TEXT  command. 

>  ERASE  --  clears  the  screen. 

>  FIND  —  positions  to  record  corresponding  to  key  in 

index  file. 

>  GO  or  GOTO  —  positions  to  specific  record  or  place 

in  file. 

>  HELP  —  access  help  file  overview  or  specific  help 

file  entry. 

>  IF  —  allows  conditional  execution  of  commands. 

>  INDEX  —  creates  an  index  file. 

>  INPUT  —  allows  input  of  expressions  into  memory 

variables. 

>  INSERT  —  insert  new  record  in  database. 
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>  JOIN  —  joins  output  of  two  databases. 

>  LIST  —  lists  files,  database  records  or  structure, 

memory  variables,  and  status. 

>  LOCATE  —  find  a  record  that  fits  a  condition. 

>  LOOP  —  skips  to  beginning  of  DO  WHILE  command. 

>  MODIFY  —  create  and/or  edit  command  file  or  modify 

structure  of  existing  database. 

>  NOTE  or  *  —  allows  insertion  of  comments  in  command 

file. 

>  PACK  —  erases  records  marked  for  deletion. 

>  QUIT  —  exits  dBASE  and  returns  to  operating  system. 

>  READ  —  initiates  full-screen  editing  or  formatted 

screen  by  accepting  input  into  variables 
accessed  with  a  GET. 

>  RECALL  —  erases  mark  for  deletion. 

>  REINDEX  —  update  existing  index  file. 

>  RELEASE  —  eliminates  unwanted  memory  variables  and 

releases  memory  space. 

>  REMARK  —  permits  display  of  any  characters. 

>  RENAME  —  rename  a  file. 

>  REPLACE  —  change  information  in  record(s)  or  entire 

database  field  by  field. 

>  REPORT  —  format  and  display  a  report  of  information. 

>  RESET  —  reset  operating  system  after  placing  new  disk 

in  drive. 

>  RESTORE  —  retrieves  memory  variables  stored  in  MEM  file 

>  RETURN  —  ends  a  command  file. 

>  SAVE  —  copies  current  memory  variables  to  disk  file. 

>  SELECT  —  switches  between  USE  files  in  PRIMARY  and 

SECONDARY  areas. 

>  SET  —  sets  dBASE  control  parameters. 

>  SKIP  —  position  forwards  or  backward  in  database. 

>  SORT  —  write  copy  of  database  sorted  on  one  of  the 

data  fields. 

>  STORE  —  creates  memory  variables. 

>  SUM  —  compute  and  display  the  sum  of  database 

field(s). 

>  TEXT  —  allows  output  of  block  of  text  from  a 

command  file. 

>  TOTAL  —  creates  summary  copy  of  database 

combining  information  from  specified 
fields  of  records  meeting  some 
criteria. 

>  UPDATE  --  allows  batch  updates  of  a  database. 

>  USE  —  specifies  database  to  USE  until  next 

USE  command  is  issued. 

>  WAIT  —  suspends  command  file  processing  until 

user  input  received. 
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APPENDIX  D 
DBASE  II  FUNCTIONS  [REP.  17] 


>  @  —  @ ( <cstringl>,  <cstring2>)  —  AT  function  yields  an 
integer  whose  value  is  the  character  number  in 
<cstring2>  which  begins  a  substring  identical  to 
<cstringl>. 

>  *  —   deleted  record  function  evaluates  as  a  logical  TRUE 

if  current  record  has  been  marked  for  deletion. 

>  #  —   record  number  function  reports  value  of  integer 

corresponding  to  current  record  number. 

>  !  —  !(<cstring>)  —  uppercase  function  yields  <cstring> 

in  uppercase  characters. 

>  $  —  $(<cstring>,  <start>,  <length>)  —  substring  function 

forms  a  character  string  from  the  specified  part  of 
another  another  string. 

>  CHR  —  CHR(<numeric  exp> )  --  yields  the  ASCII  character 

equivalent  of  the  <numeric  exp>.  e.g.,  ?  CHR  (7) 
rings  the  bell. 

>  DATE ( )  —  returns  the  character  string  that  contains  the 

System  Date  in  format  xx/xx/xx. 

>  EOF  —  end-of-file  function  evaluates  as  True  if  an 

attempt  has  been  made  to  go  past  the  last  record 
in  a  database. 

>  FILE  —  FILE( <f ile> )  —  existence  function  evaluates  as  a 

logical  False  if  it  does  not. 

<  INT  —  INT  (<numeric  exp> )  —  integer  function  truncates 

everything  to  right  of  decimal  to  form  an  inteqer. 

<  LEN  —  LEN( <cstring> )  —  length  function  returns  the 

number  of  characters  in  <cstring>.  ?  LEN( ' HELLO ' ) 

<  RANK  --  RANK( <cstring> )  —  returns  the  (ASCII  numeric) 

value  of  the  leftmost  character  of  <cstring>. 

<  STR  —  STR  (<numeric  exp>,  <width>  [ , <decimals> ] )  — 

string  function  converts  a  numeric  expression 
into  a  character  string. 
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<  TEST  —  TEST(<exp>)  —  used  with   ?  and  IF,  test  function 

determines  if  <exp>  is  valid  and  parsable.  A  valid 
<exp>  returns  a  value  #  0 ;  an  invalid  <exp>  a  value 
of  0. 

<  TRIM  —  TRIM  (<cstring>)  -  trim  function  removes  trailing 

blanks  from  <c-string>.  ?  TRIM(FIRST)  +  • •+  LAST. 

<  TYPE  —  TYPE(<exp>)  —  function  yields  a  one-character 

string  that  contains  a  'C,  'N'f  'L',  or  'U'  if  the 
<exp.  is  of  type  character,  Numeric,  Logical,  or 
Undefined. 

<  VAL  —  VAL  (<cstring>)  —  value  function  converts  a  character 
string  made  of  numerals  into  a  numeric  expression 
[Ref.  17]. 
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APPENDIX  E 
DBASE  II  LIMITATIONS  AND  CONSTRAINTS  [ REF .  17] 


number  fields/record 

number  chars/record 

number  records/database 

number  char s/cstring 

accuracy  numeric  fields 

largest  number 

number  current  memyars 

number  chars/command  line 

number  <exp>s  in  SUM  command 

number  chars  in  REPORT  header 

number  fields  in  REPORT 

number  chars  in  index  key 

number  of  pending  GETS 

number  of  files  open  at  one  tim 

length  of  .PRG  file 


32  max 

1000  max 

6  5  535  max 

254  max 

10  digits 

1.8  x  10**63  approx 

64  max 

2  54  max 

5  max 

2  54  max 

24  max 

9  9  max 

64  max 

16  max 

unlimited 
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